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I.  INTRODUCTION 


A.  BACKGROUND 

The  future  of  programming  language  development  within 
the  computer  industry  is  indeed  an  area  of  great  concern  and 
strong  debate.  The  events  of  history  and  the  evolution  of 
the  science  to  its  current  state  have  created  some  difficult 
problems  requiring  systematic,  bold  and  creative  solutions. 
In  order  to  fully  understand  the  nature  of  the  ’’computer 
crisis"  of  the  1980's,  it  is  important  to  examine  the  course 
which  charted  the  industry  to  its  present  position. 

The  cornerstone  of  computer  science  today  is  the 
conventional  programming  language  and  its  associated  von 
Neumann  machine.  The  von  Neumann  model,  which  launched  the 
modern  era  of  computing  machines  over  three  decades  ago,  had 
as  its  basis  the  concept  of  word-at-a-t  lme  processing  or  the 
transfer  of  a  single  word  between  the  CPU  and  storage  area. 
Vhlle  the  initial  development  of  the  von  Neumann  computer 
was  a  profound  technological  breakthrough ,  serious 
deficiencies  and  limitations  have  been  discovered  in  later 
research.  John  Backus  has  cited  the  most  serious  defect  in 
this  particular  architecture  as  the  "von  Neumann  bottleneck" 
resulting  from  the  word-at-a-t ime  programming  concept  [1] . 
The  continuing  reliance  on  the  von  Neumann  computer  has 
greatly  influenced  the  direction  of  programming  language 
development  for  the  past  thirty  years.  The  conventional 
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programming  language,  with  its  foundation  in  the 
word-at-a-t ime  methodology,  has  flourished  since  its 
inception  and  has  served  the  user  community  extremely  well. 
However,  an  Interesting  phenomenon  is  occuring  within  the 
conventional  language  environment.  The  total  dependence  upon 
von  Neumann  computers  by  both  the  business  and  academic 
communities  has  literally  forced  the  industry  into 
developing,  for  the  most  part,  conventional-type  programming 
languages.  In  an  effort  to  make  stronger  and  more 
sophisticated  languages,  it  became  necessary  to  increase 
their  overall  size  and  complexity.  As  a  result,  the 
state-of-the-art  development  of  conventional  languages  is  at 
present  producing  a  much  larger  but  not  technologically  or 
intellectually  superior  product. 

Computer  language  technology  has  progressed  through  a 
multitude  of  stages  from  the  original  von  Neumann  style  of 
programmi  g  languages  to  what  appears  to  be  a  turning  point 
in  the  future  design  and  implementation.  Standing  at  the 
crossroads  in  this  continuing  developmental  process  are  many 
prominent  voices  urging  movement  along  a  variety  of  paths. 
The  traditionalists  remain  comfortable  with  the  von  Neumann 
style  of  programming  languages  while  the  mavericks  of  the 
Backus  philosophy  insist  that  the  conventional  languages 
have  been  pushed  to  their  limit  and  the  many  inherent 
weaknesses  of  these  languages  must  be  overcome  by 
introducing  the  concept  of  a  functional  style  of 
programming.  The  notion  of  functional  programming,  as 


espoused  by  Backus,  contrasts  the  Inherent  problems  of  the 
conventional  languages,  i.e.  the  von  Neumann  bottleneck  and 
word-at-a-tlme  mentality  with  an  alternate  methodology  of 
thinking  and  reasoning  on  a  broader,  more  conceptual  level. 
The  functional  languages,  along  with  the  object-oriented 
languages  such  as  Smalltalk  from  the  Xerox  Corporation  and 
the  natural  languages  from  the  artificial  intelligence 
arena,  offer  a  wide  variety  of  alternatives  to  the  von 
Neumann  model. 

It  is  readily  apparent  that  the  ?hitecture  of  the 
original  von  Neumann  machines  has  not  or  influenced  the 
past  development  of  languages,  but  -o  continues  to 
stagnate  the  intellectual  growth  of  the  s  .ace,  especially 
in  bold  new  areas  such  as  functional  programming.  The  lack 
of  suitable  machines,  in  general,  to  process  noa-von  Neumann 
languages  has  reinforced  the  development  and  refinement  of 
conventional  languages,  thus,  creating  a  vicious  cycle  which 
may  be  very  difficult  to  overcome.  In  addition,  the  ability 
to  gain  the  acceptance  of  the  user  community  for  a  new  style 
of  programming  will  be  at  best  very  difficult  and  at  worst 
virtually  impossible.  It  is  essential,  therefore,  that  a 
detailed  and  comprehensive  plan  be  established  industry-wide 
to  facilitate  not  only  the  future  growth  of  non-von  Neumann 
languages  but  also  the  development  of  non-von  Neumann 
architectures  to  support  these  languages.  The  solution  to 
the  problem  must  be  sought  in  two  distinct  areas;  (1)  the 
development  of  new  hardware  technologies  which  will  be  able 
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to  process  the  non-von  Neumann  programming  languages  in  an 
efficient  and  cost-effective  manner  and  (2)  the  development 
of  an  intermediate  programming  language  which  will  enable 
the  users  of  conventional  programming  languages  to  slowly 
and  systemat ically  learn  and  accept  a  new  style  of 
programming  and  ultimately  a  more  sophisticated  and  powerful 
methodology  for  problem  solving. 

B.  SCOPE 

The  Intent  of  the  thesis  is  to  eiplore  a  possible 
interim  solution  to  the  long  range  problem  of  implementing  a 
non-von  Neumann  type  of  programming  language  and  in 
addition,  gain  user  community  acceptance  of  this  powerful, 
unconventional  programming  technique.  The  growing  problem  of 
programmer  productivity  and  associated  human  factors 
considerations  related  to  the  programming  process  are 
central  issues  in  the  motivation  for  the  thesis.  It  is 
assumed  that  the  hardware  issues  previously  mentioned  will 
eventually  find  a  solution  with  advancing  technologies  and, 
therefore,  have  not  been  Included  in  the  scope  of  study.  The 
thesis  proposes  to  show  the  potential  value  of  integrating  a 
non-von  Neumann  programming  method  into  a  current 
conventional  language  with  the  sole  purpose  of  providing  a 
smooth,  systematic  and  orderly  transition  into  the  future 
generations  of  programming  languages. 

1 .  Statement  of  the  Problem 

There  is  currently  no  method  for  a  programmer  to  use 
the  powerful  concepts  of  functional  programming  within  a 
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conventional  language  environment  as  an  interim  solution  to 
the  development  and  implementation  of  advanced  programming 
language  techniques. 

2.  Hypothesis 

The  theory  of  pure  functional  programming  can  be 
applied  to  a  standard  conventional  programming  language.  A 
subset  of  the  total  concept  and  problem-solving  techniques 
of  a  functional  programming  language  can  be  implemented 
within  the  structure  of  a  conventional  language,  thus 
enabling  a  programmer  to  simulate  a  functional  programming 
environment  while  remaining  within  the  traditional  bounds  of 
a  conventional  language. 

3 .  Dependent  and  Independent  Variables 

In  order  to  fully  describe  the  interrelationships 
between  the  different  components  involved  in  the  research 
endeavor,  it  is  necessary  to  identify  the  major  dependent 
and  independent  variables.  The  non-von  Neumann  methodology 
selected  for  Integration  into  a  conventional  environment  is 
the  concept  of  functional  or  applicative  programming  as 
described  by  Backus  [lj  .  The  functions  developed  for 
integration  will  be  termed  the  independent  components  or 
variables.  The  high-level  conventional  language  chosen  for 
the  research  is  the  PASCAL  programming  language.  It  will 
serve  as  the  dependent  component  or  variable  inasmuch  as  its 
overall  capabilities  will  be  significantly  altered  by  the 
implementation  of  the  independent  functions  which  will  be 
integrated  into  its  structure. 


4 .  Intended  Contribution 

The  contribution  of  the  research  effort  is  focused 
primarily  on  the  issue  of  programmer  productivity  and  in 
particular,  the  necessity  for  providing  new  and  innovative 
tools  for  the  development  of  computer  programs.  It  is 
intended  to  be  a  small  step  towards  Interfacing  with  the 
programming  language  of  the  future  which  by  its  very  nature 
will  be  simple,  yet  powerfully  extensible.  The  conventional 
languages  will  be  embedded  in  the  majority  of  applications 
in  the  near  term  as  it  is  very  difficult  to  change 
traditional  programming  habits.  A  successful  test  of  the 
above  hypothesis  will  convince  the  reader  that  there  is 
Indeed,  from  the  users  point  of  view,  an  interim  solution  to 
bridging  the  gap  between  the  current  conventional 
programming  languages  and  the  powerful  unconventional 
languages  of  the  future.  It  will  reinforce  the  concept  that 
a  programmer  can  simulate  the  techniques  and  problem-solving 
methods  of  a  functional  or  applicative  type  language  while 
using  the  traditional  tools  to  which  he  or  she  is 
accustomed.  The  proposed  language  or  system,  termed 
functional  PASCAL,  will  offer  a  glimpse  into  the  future  of 
programming  language  design.  It  is  not  intended  to  be  a 
complete  solution  but  will  hopefully  achieve  two  important 
objectives;  (1)  provide  a  vehicle  for  exploring  the  use  of  a 
functional  programming  language  and  (2)  provide  a  planned 
methodology  for  achieving  the  ultimate  goal  of  developing  a 
simple,  yet  powerful  programming  language  for  the  user. 
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As  the  cost  of  hardware  continues  to  decline 


dramatically  within  the  industry,  the  explosion  in 
microtechnology  is  driving  the  development  and  production  of 
faster,  less  expensive  and  more  efficient  machines.  In 
contrast,  the  problems  facing  mankind  are  growing 
progressively  larger  and  more  complex  along  with  the 
software  used  to  solve  those  problems.  It  is  essential, 
therefore,  that  appropriate  tools  be  developed  to  meet  the 
challenge  of  a  more  complicated  world.  The  largest  portion 
of  the  computer  budget  in  the  future  will,  without  a  doubt, 
be  targeted  for  the  software  arena.  It  is  imperative  that 
the  methods  for  building,  maintaining  and  understanding 
computer  programs  be  addressed  in  a  bold  and  innovative 
manner.  It  is  with  this  thought  in  mind  that  the  following 
research  is  accomplished. 

C.  OVIRVIIW 

A  brief  introduction  has  been  provided  in  Chapter  I 
outlining  the  general  background  of  the  problem  and  the 
scope  of  the  study.  Chapter  II  focuses  on  a  detailed  review 
of  the  literature  and  addresses  some  of  the  basic  concepts 
and  definitions  within  the  realm  of  functional  programming. 
Alternative  solutions  for  integrating  the  concepts  of 
functional  programming  into  a  conventional  language 
environment  are  explored  in  Chapter  III.  The  proposed  design 
and  detailed  specifications  for  the  final  development  of  the 
Functional  PASCAL  System  are  provided  in  Chapter  IV.  Chapter 
V  contains  the  implementation  procedures  for  the  system  and 
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the  initial  test  results  in  an  operational  environment .  The 
study  is  discussed  in  its  entirety  in  Chapter  71,  rendering 
pertinent  comments  about  the  findings  of  the  research,  a 
final  summation  of  the  results  and  the  conclusions  of  the 
researchers.  Recommendations  for  further  research  are  also 
addressed  along  with  related  topics  of  interest  in  the  area 
of  functional  programming.  A  complete  documentation  package 
is  provided  in  Appendix  A  (Source  Code)  and  Appendix  B 
(User's  Manual). 
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II.  REVIEW  OF  THE  LITERATURE 


A,  GENERAL 


The  literature  does  not,  at  present,  specifically 
address  the  issue  of  integrating  a  functional  or  applicative 
language  into  a  conventional  envlromrent.  However,  a  general 
overview  of  the  theory,  concepts  and  structures  of 
functional  programming  is  deemed  essential  in  order  to  fully 
understand  the  purpose  and  ultimate  benefit  of  the  proposed 
system.  In  an  attempt  to  prove  the  validity  of  implementing 
a  non-von  Neumann  type  programming  language  in  a 
conventional  environment,  it  is  first  necessary  to  explore 
not  only  current  ideas  and  methodologies,  but  also  the  basic 
terminology  that  comprises  the  new  technique. 

As  was  mentioned  earlier,  the  declining  cost  of  hardware 
is  allowing  the  designers  of  programming  languages  to 
concentrate  more  on  building  simple  and  extensible  languages 
and  less  on  the  efficiency  of  implementation.  The  escalating 
cost  of  software,  on  the  other  hand,  reinforces  the  theory 
that  more  emphasis  needs  to  be  placed  upon  the  nature  of  the 
programming  language  itself.  Functional  programming  enables 
a  user  to  experience  an  even  higher-level  programming 
capability  than  is  provided  with  traditional  conventional 
languages.  Programs  are  easier  to  construct,  easier  to 
maintain  and  easier  to  understand  [2] .  The  following  review 
of  the  literature  and  explanation  of  basic  concepts  will 
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provide  the  reader  with  a  tetter  understanding  of  the  world 
of  functional  or  applicative  programing.  Individuals  with 
previous  knowledge  of  functional  programing  may  wish  to 
skip  Chapter  II  and  continue  with  Chapter  III,  the 
alternative  solutions  to  the  problem. 

3.  SASIC  DEFINITIONS  AND  CONCEPTS 

Functional  programming  is  an  unconventional  style  of 
problem-solving  which  traces  its  history  to  the  simple 
concept  of  the  mathematical  function.  The  basic  concept  of  a 
function  is  a  rule  of  correspondence  which  maps  members  of 
set  X,  for  example,  into  a  unique  member  of  set  T.  The 
members  of  set  X  comprise  the  domain  and  the  members  of  set 
T,  the  range  [2] .  The  members  of  the  two  sets  are  objects 
and  the  resulting  operation  of  the  function  is  a  mapping  of 

each  object  from  the  domain  into  a  unique  object  in  the 

range. 

Set  X  Set  T 

Ruth  ”  ^^.j^^Baseball  Player 
Dimaggio —  President 

Carter- - w  Ancho  rman 

Cronki te- - 

The  function  is  considered  the  operator  and  the  object,  the 
operand.  In  the  example,  the  function  OCCUPATION  is  applied 
to  the  object  Ruth  and  the  result  is  another  object. 

Baseball  Player.  The  object  Ruth  can  also  be  thought  of  as 

the  argument  passed  to  the  function,  OCCUPATION.  It  is 
essential  to  reiterate  that  only  unique  mappings  can  occur 
from  Set  X  to  Set  T,  i.e.,  members  of  Set  X  cannot  map  to 
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tve  distinct  objects  in  Set  7.  It  should  also  be  noted  that 
there  may  be  bounds  placed  upon  the  allowable  members  of  the 
domain  and  range.  For  example,  the  function  SQUAREROOT  has 
as  its  domain  and  range  the  set  of  non-negative  real 
numbers.  The  function  SQUARE,  however,  has  as  its  domain  the 
set  of  real  numbers  and  as  its  range,  the  more  limited  set 
of  non-negative  reals.  To  generalize  the  notion,  it  can  be 
stated  that  a  function  takes  as  its  argument,  an  object,  and 
produces  another  object. 

f  (object)  =**=>  (object) 

A  function  can  be  thought  of  as  a  program  which  takes  input 
in  the  form  of  an  argument  and  produces  some  output  in  the 
form  of  a  result.  The  basic  structure  of  expressions  in  a 


functional 

language  consists  solely  of  operators 

applied 

to 

operands 

CZJ. 

The 

operands  are  the  actual 

values 

or 

arguments 

that 

are 

passed  to  the  functions 

while 

the 

functions 

serve 

as 

the  operators  which  take  the 

va lue  s 

and 

operate  on 

them 

producing  a  result.  This  result, 

which 

is 

also  a  value,  can  be  used  as  an  argument  to  another  function 
if  desired. 

In  order  to  take  advantage  of  the  powerful  concept  of 
functions  in  building  a  program,  it  is  essential  that  a  user 
be  allowed  to  construct  new  functions  from  old  ones.  The 
building  of  these  new  functions  from  ones  previously  defined 
is  called  functional  composition  and  provides  the  capability 
of  implementing  a  hierarchical  structure  within  the  program. 
In  its  simplest  form,  a  functional  program  consists  of  one 
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basic  primitive  function.  At  the  other  extreme,  the  program 
consists  of  a  hierarchy  of  functions  built  from  other 
functions  resulting  in  the  view  of  the  entire  program  as  one 
large  function.  There  are  two  distinct  schools  of  thought  as 
to  the  implementation  of  the  basic  primitive  functions 
within  the  language  and  these  ideas  will  be  discussed  later. 

The  differences  between  a  conventional  programming 
language  of  the  von  Neumann  mold  and  the  functional  or 
applicative  languages  described  by  John  Backus  and  Peter 
Benderson  are  numerous.  The  basic  difference  is  that 
"imperative  languages"  such  as  PASCAL,  COBOL  and  FORTRAN 
compute  by  effect  rather  than  by  value.  Computing  by  effect 
Involves  the  incremental  changes  to  variables  by  a 
continuous  series  of  assignment  statements  [2],  In  contrast, 
functional  programs  compute  by  value  or,  in  other  words,  a 
unique  value  of  a  particular  function  is  determined  by  its 
arguments.  The  imperative  languages,  therefore,  are  more 
assignment -oriented  and  variable-oriented  in  nature  than 
applicative  languages.  An  applicative  language,  such  as 
functional  programming,  is  more  function-oriented  and 
value-oriented  with  additional  emphasis  on  the  concept  of 
recursion.  In  addition,  applicative  languages  are  usually 
organized  around  functional  applications.  Since  a  function 
operates  only  on  its  arguments  to  produce  a  result  or  value 
and  there  is  no  ultimate  assignment  to  a  variable,  the  need 
for  variables  is  eliminated.  The  actual  arguments  are  not 
named,  either,  which  also  eliminates  the  need  for  variables 


as  they  hare  been  used  in  the  past.  A  functional  program 
does  not  incojporate  any  data,  per  se,  but  operates  instead 
on  whole  conceptual  units.  The  basic  power  of  the 
applicative  type  of  system  is  the  ability  to  build  functions 
from  functions  without  the  use  of  variables,  thus  creating  a 
simple,  yet  elegant  hierarchical  structure  for  a  program. 
Frograms  written  in  functional  or  applicative  languages  are. 
in  many  cases,  an  order  of  magnitude  shorter  than  equivalent 
conventional  language  programs  [2].  Although  the  theory  of 
functional  programming  has  been  studied  extensively  and  many 
different  models  proposed,  the  review  will  concentrate  on 
the  functional  programming  system  proposed  by  John  Backus 
Cl] .  References  to  other  systems  and  contrasting 
methodologies  will  be  made  in  order  to  give  the  reader  a 
balanced  perspective  of  the  research  and  development  that 
has  been  completed  to  date.  It  should  be  emphasized, 
however,  that  the  development  of  a  subset  of  a  functional 
programming  language  for  Integration  into  a  conventional 
environment  as  proposed  la  subsequent  chapters  of  this 
paper,  is  accomplished  using  the  basic  framework  of  the 
Backus  system. 

C.  A  FUNCTIONAL  PROGRAMMING  STSTEM 

A  functional  programming  system,  according  to  Backus,  is 
built  from  five  component  parts,  (1)  a  set  of  objects,  (2)  a 
set  of  functions,  (3)  operations  or  applications,  (4)  a  set 
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of  functional  forms  and  (5)  a  set  of  definitions  [1].  Each 
of  these  component  parts  is  explained  in  greater  detail 
below . 

1.  Objects 

An  object,  as  mentioned  earlier,  is  an  argument  that 
is  passed  to  a  function  which  it  operates  on.  It  can  either 
be  an  atom,  in  its  most  basic  sense,  or  a  sequence  where  the 
sequence  itself  is  a  set  of  one  or  more  objects.  An  object 
that  is  neither  an  atom  nor  a  sequence  is  said  to  be 
undefined  and  is  denoted  by  a  special  symbol,  an  Inverted  T 
(called  "bottom")  [1].  The  allowable  symbols  for  an  atom 
within  the  system  are  digits  or  nonnull  strings  of 
alphabetic  letters.  Cetain  special  symbols  may  also  be  used 
if  they  are  not  implemented  as  a  feature  within  the  language 
itself.  Henderson  classifies  atoms  *  as  either  symbolic  or 
numeric  and  uses  the  notion  of  an  "s-expression”  to 
illustrate  how  atoms  are  combined  to  form  simple  and  complex 
sequences  [2],  The  most  basic  form  of  an  "S-expression”, 
according  to  Henderson,  is  a  single  atom,  while  a  more 
sophisticated  "S-expression"  might  contain  a  list  of  atoms 
or  sequences  of  atoms.  A  special  symbol  is  used  to  denote 
the  empty  sequence  and  is  the  only  object  in  the  functional 
system  that  can  serve  as  either  an  atom  or  a  sequence.  The 
actual  representation  or  specific  symbol  used  depends  on  the 
particular  designer  of  the  system  but  the  most  common  one  is 
the  symbol  for  the  null  set  (0). 


Some  Elementary  Objects  in  a  Functional  Programming  System: 

ATOMS:  B  C  X  I  BALL  BAT  1  5  8.4 

SEQUIN  CIS  :  <A  B  C>  <1  T  <1  I  Z»  «I>  <F  G>  <B  I  J» 
«CAT  5ALL  2>  «1.2>  <£.£»  3  DISH> 

Again*  It  must  be  emphasized  that  everything  In  a  functional 
system  is  viewed  in  terms  of  functions  or  operators  applied 
to  objects  or  operands.  The  single  atoms  and  combination  of 
atoms  Into  sequences  Illustrated  above  have  the  common  bond 
In  that  they  all  represent  objects. 

2.  Functions  and  Applications 

Nov  that  the  concept  of  an  object  has  been  defined,  a 
logical  follow-on  component  is  the  function  that  provides 
the  actual  operation  on  those  objects.  A  function  has  the 
responsibility  of  mapping  objects  into  objects.  The  act  of 
operating  on  an  object  by  a  function  is  termed  an 
application.  It  derives  its  name  from  the  fact  that  the 
function,  or  operator.  Is  applied  to  a  specific  object,  or 
operand,  to  obtain  a  result  [Ij .  Most  functional  programming 
systems  provide  different  types  of  functions  that  can  be 
implemented  by  the  user.  In  the  functional  system  designed 
by  Backus,  a  function  can  be  in  one  of  three  catagories*  (1) 
primitive,  (2)  user-defined  or  (3)  functional  form.  The 
primitive  functions  are  those  that  are  provided  by  the 
system  whereas  the  user-defined  functions  are  developed  for 
specific  applications  by  the  user  through  the  use  of  one  or 
more  of  the  primitives.  The  Backus  philosophy  encourages  the 
use  of  a  powerful  and  diversified  set  of  primitive  functions 
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which  provides  the  programmer  with  a  significant  amount  of 
latitude  in  designing  a  functional  program.  In  contrast,  the 
system  proposed  by  Henderson  limits  the  set  of  primitive 
functions  to  elementary  selector  and  constructor  functions 
such  as  FIRST,  REST  and  CO NS  ( CAR,  CER  and  CONS  in  LISP 
notation).  It  is  the  user's  responsibility  to  define  new 
functions  in  terms  of  the  primitive  ones  provided  by  the 
system,  which  places  an  added  burden  on  the  programmer. 
Examples  of  Applications  Using  Primitive  Eunctions: 

FIRST  :  <X  T  Z>  »»»>  X 

REST  :  «BALL>  X  TZ  <BAT»  ==«>  <X  TZ  <BAT» 

CONS  :  «X  T>  «X  Z>  <BALL  BAT»> 

»»»>  «X  T>  <X  Z>  <BALL  BAT» 

LENGTH  :  <21  BAT  <X  T>  B>  «=>  4 
REVERSE  :  <1  2  3  4  5>  *«•>  <5  4  3  2  1> 

In  addition  to  the  elementary  selector  and  constructor 
primitives,  most  functional  systems  provide,  either  as  a 
user-defined  function  or  as  part  of  the  system-defined 
primitives,  arithmetic  and  predicate  functions.  The  need  for 
the  former  is  obvious  while  the  latter  becomes  an  essential 
feature  of  the  language  in  order  to  process  lists  of  varying 
structure  [2].  A  predicate  function  is  one  that  returns  a 
boolean  value  when  it  is  applied  to  its  argument.  Having  the 
predicate  capability  enables  a  programmer  to  test  a 
structure  to  determine  if  it  is  an  atom  or  a  list  or  whether 
or  not  a  particular  structure  is  equal  to  another  structure. 
Ixamples  of  Predicate  and  Arithmetic  Functions: 
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SUM  :  <1  10  4  6>  *==>  21 
ATOM  :  <BALL  BAT>  ==*>  False 
EQ  :  <RON  RUN>  **=>  True 
3.  Functional  Forms 

The  true  power  and  sophistication  of  a  functional 
programming  system  is  achieved  through  the  mechanisms  of 
functional  definitions  and  functional  forms.  The  use  of 
functional  forms  is  unique  to  the  system  implemented  by 
Backus  while  user-defined  definitions  are  usually  a  standard 
feature  of  most  functional  programming  systems.  The 
functional  form  is  a  mechanism  used  to  combine  existing 
functions  or  objects  into  new  functions  [1].  The  arguments 
of  a  functional  form  can  be  functions  or  objects.  The 
methodology  of  building  functional  forms  may  be  familiar  to 
the  reader  as  "combining  forms"  and  is  explained  in  greater 
detail  by  Curry  and  Feys  in  their  work  on  combinatory  logic 
[3]. 

Examples  of  Functional  Forms: 

COMPOSITION:  Symbol  ===>  o 

(Assuming  two  functions  f  and  g) 

Functional  form:  fog 
Application  to  object  x:  (f  o  g)  :  x 
Represents:  f  :  (g  :  x) 

APPLY  TO  ALL:  Symbol  =*=>  a 


1 


(Assuming  one  function  f) 
Functional  form:  a f 
Application  to  object  X 
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where  X  is  a  sequence:  af:<Xl  12  X3> 

Represents:  <f:Xl  f:X2  f:X3> 

4.  Functional  Definitions 

The  user-defined  function  rounds  out  the  last 
component  of  a  functional  programming  system.  It  gives  the 
programmer  an  opportunity  to  define  new  functions  using  the 
principles  of  combining  forms  and  actually  names  the 
function  for  future  use.  Although  most  functional  systems 
allow  the  user  to  specify  new  functions,  the  actual 
implementation  may  vary  from  system  to  system.  The  basic 
concept,  however,  remains  the  same.  There  is  a  relationship 


established 

where 

the  left-hand 

side 

of 

the  equation 

consists  of 

the 

symbol  selected 

for 

the 

newly  defined 

function.  The  right-hand  side  of  the  equation,  then,  is  a 
set  of  primitive  functions  or  a  functional  form.  When  the 
symbol  for  the  new  function  is  invoked,  it  has  the  net 
effect  of  substituting  the  pre-defined  functions  or 
functionals  for  the  user-defined  symbol,  thus  creating  the 
new  function.  This  method  for  defining  functions  provides 
the  programmer  with  a  powerful  capability  of  extending  the 
language  and  also  offers  an  added  dimension  of  flexibility 
to  the  system. 

Examples  of  User-Eefined  Functions: 

(Eefine  a  function  that  returns  the  second 
element  of  a  list ) 

EIF  SECONE  <X>  =  <FIRST  CREST  <X»> 

(Application  of  the  new  function) 

SECOND  :  <3  6  9>  «=*>  6 


The  evaluation  of  the  new  function  is  accomplished  by 
substituting  the  previously  defined  primitives,  which  in 
turn  requires  two  more  function  applications.  The  function 
RIST  applied  to  the  object  Z,  which  is  a  list  containing 
three  atoms,  returns  an  object.  This  object,  a  list 
containing  the  two  atoms  6  and  9,  is  passed  to  the  function 
FIRST  which  returns  another  object,  the  atom  6.  Although  a 
trivial  example,  the  concept  of  creating  new  and  more 
powerful  functions  from  old  ones  is  indeed  a  desirable 
property  for  any  programming  language  and  is  an  essential 
feature  of  functional  systems. 

I.  ADDITIONAL  CONCEPTS  AND  METHODOLOGIES 

It  should  be  noted  that  the  references  to  objects  in  the 
functional  programming  system  are  actually  values  and  should 
not  be  confused  with  the  purely  mathematical  definitions  as 
discussed  by  Maclennan  [4].  The  applicative  programming 
system  remains  value-oriented  in  nature  by  definition. 

With  all  of  the  advantages  of  a  functional  programming 
system  come  several  disadvantages  as  well.  One  of  the 
primary  limitations  is  the  inability  to  add  functional  forms 
to  the  system  when  needed.  The  standard  functional  system, 
then,  is  rigidly  fixed;  its  capability  is  limited  by  the 
original  set  of  primitive  functions  and  functional  forms 
that  establish  the  framework  of  the  language.  The  only 
flexibility  in  the  functional  system  is  the  programmer's 
option  of  defining  a  function  by  name,  using  the  functional 
forms  provided  within  the  system.  In  an  attempt  to  overcome 
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this  restriction  and  recover  the  simplicity  and  elegance 
attributed  to  applicative  systems*  the  notion  of  a  formal 
functional  programming  system  (FIP  system)  is  Introduced 
[1] .  The  FIP  system  provides  the  programmer  with  the 
capability  of  defining  new  functional  forms  and  ultimately 
Increases  the  overall  flexibility  of  the  system. 

Chlarlni  extended  the  functional  programming  concepts  of 
Backus  by  implementing  an  enhanced  version  of  an  applicative 
system  [5].  Be  net  only  standardized  the  symbols  used  in  a 
functional  programming  system  so  that  programs  could  be 
implemented  on  ASCII  terminals*  but  also  developed 
additional  functional  forms  that  complemented  the  original 
ones  proposed  by  Backus.  The  functional  forms  proposed  by 
Chiarini  are  examined  in  greater  detail  in  Chapters  3  and  4. 

Another  limitation  of  a  functional  or  applicative  system 
is  its  lack  of  history  sensitivity  [1].  The  original  concept 
of  eliminating  the  notion  of  states  from  programming  was 
motivated  by  the  overwhelming  complexity  that  resulted  from 
programs  having  to  keep  track  of  thousands  of  variables, 
representing  the  state  of  a  machine  at  a  particular  point  in 
time  [4] .  In  contrast  to  the  large  number  of  state  changes 
required  by  an  imperative  language  due  to  the  constant 
alteration  of  variables  by  assignment  statements,  the 
concept  of  functional  programming  presents  a  completely 
different  approach.  A  reduction  in  the  number  of  state 
transitions  is  a  highly  desirable  property,  but  the  complete 
absence  of  states  altogether  in  the  functional  system 


proposed  by  Backus  imposes  some  severe  restrictions.  The 
need  for  compromise  resulted  in  a  proposal  for  an 
Applicative  State  Transistion  System  (AST  System)  [lj .  In 
this  system,  a  nev  state  is  computed  by  the  application  of  a 
particular  function  to  its  argument  or  arguments  which 
produces  an  output  or  result.  The  output  is,  in  fact,  the 
new  state.  A  critical  feature  of  the  AST  System  is  that  no 
state  changes  occur  during  a  computation;  only  upon 
completion  of  the  functional  application.  The  significant 
reduction  in  state  transitions  greatly  simplifies  the 
underlying  computation  and  brings  together  the  best  of  both 
programming  methodologies.  The  actual  components  of  an  AST 
System  consist  of  a  formal  functional  programming  system  as 
previously  described,  a  set  of  definitions  that  determine 
the  state  of  the  program  and  a  set  of  transition  rules  that 
allow  functional  applications  to  occur  and  affect  changes  to 
the  original  state  [1]. 

Any  dissertation  on  functional  programming  must  include 
a  discussion  of  recursion.  Generally  speaking,  a  functional 
system  consists  of  functions  operating  on  objects.  These 
objects  are  represented  in  a  list  structure  and  therefore, 
resulting  operations  imply  changes  to  that  list.  Two  cases 
must  be  considered  when  applying  recursive  functions  to  a 
list;  (1)  the  situation  when  the  list  contains  one  or  more 
elements  and  (2)  the  situation  when  the  list  is  empty.  By 
implementing  a  recursive  function  and  applying  it  repeatedly 
to  an  object  (list),  the  recursion  is  guaranteed  to 
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terminate.  The  list  decreases  in  size  toy  one  item  vith  each 
recursive  call  until  the  list  is  empty  and  the  null 
condition  is  reached  [2] .  The  concept  of  recursion  is 
extremely  useful  when  implement ing  new  functions  which 
operate  on  lists  and  is  a  powerful  tool  that  is  a  welcome 
feature  in  a  functional  system. 

A  Recursive  Function: 

LENGTH  <X>  * 

IF  IQ  :  <X,nil>  THIN 
0 

ILSI 

LENGTH  :  <REST<X»  +  1 
END  IF 

This  cursory  review  and  explanation  of  terminology  is 
intended  to  give  the  reader  a  toroad  overview  of  the  concept 
of  functional  programming.  The  subsequent  chapters  attempt 
to  use  a  subset  of  these  powerful  programming  techniques  in 
a  controlled  manner  within  the  framework  of  a  conventional 
programming  language. 
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III.  ALTER NATIVE  SOLUTIONS  TO  THI  PROBLEM 


A.  GENERAL 

In  examining  the  various  alternatives  to  Implementing 
functional  programming  techniques  within  a  conventional 
programming  language  environment,  it  is  Important  to 
remember  the  most  critical  factor  and  overall  goal  of  the 
system  design:  ease  of  use  for  the  programmer.  It  Is  this 
basic  premise  that  is  so  often  Ignored  in  many  language 
designs.  The  net  result  is  the  development  of  highly 
sophisticated  programming  languages  which,  for  the  average 
individual,  are  extremely  difficult  to  understand  and  use 
effectively.  To  maintain  the  proper  perspective,  designers 
must  be  aware  that  the  ultimate  purpose  of  computers  and  the 
languages  which  provide  their  "intelligence",  is  to 
accomplish  real-world  tasks.  As  problem  solving  becomes  more 
complex  and  the  availability  of  computers  to  the  average 
person  becomes  more  widespread,  the  task  of  providing  simple 
and  powerful  programming  languages  to  a  large  and 
diversified  user  community  is,  indeed,  a  challenging  one. 

B.  PROGRAMMING  LANGUAGE  STRUCTURE 

1 .  The  Programming  Language  Continuum 

The  current  technology  of  programming  language 
development  can  be  viewed  as  a  continuum  with  two  distinct 
endpoints.  One  extreme  represents  the  standard  imperative 
languages,  while  the  other  extreme  represents  applicative 
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languages.  The  number  of  existing  languages  vlthln  the 
former  class  are  numerous  while  the  number  of  operational 
languages  within  the  latter  are  few  and  far  between.  The 
design  of  the  Functional  PASCAL  System  attempts  to  provide 
the  user  with  the  capability  of  operating  at  any  point  on 
this  "programming  language  continuum"  as  illustrated  in 
Figure  3-1.  The  left  side  of  the  continuum  represents  the 
use  of  high-level  conventional  programming  languages  for  a 
particular  application.  The  right  side  represents  the  use  of 
applicative  programming  techniques  to  accomplish  a 
programming  task.  The  purpose  of  the  Functional  PASCAL 
System  is  to  enable  an  individual  to  operate  at  a  point  in 
between  the  two  extremes.  Ultimately,  the  system  will  allow 
the  user  to  simulate  the  techniques  of  functional 
programming  to  any  degree  desired  or  remain  in  the  familiar 
conventional  environment.  The  degree  to  which  functional 
versus  conventional  programming  techniques  are  used  depends, 
to  a  large  extent,  on  the  type  of  calculation  required  and 
the  motivation  of  the  user  to  experiment  with  new 
methodologies . 

2.  Programming  Language  Components 

Programming  languages,  in  general,  consist  of  two 
basic  components;  (1)  a  framework  and  (2)  a  series  of 
changeable  parts  [1] .  The  framework  dictates  the  basic  rules 
of  the  system  and  describes  the  fixed  features  of  the 
language.  The  standard  language  constructs,  i.e.  the  IF, 
CASI,  WHILE,  REPEAT  and  FOR  statements  are  examples  of 
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portions  of  the  PASCAL  language  framework.  Changeable  parts, 
on  the  other  hand,  are  independent  components  such  as 
user-defined  procedures  or  library  functions  which  exist 
within  the  framework  and  provide  a  degree  of  flexibility  to 
perform  certain  operations. 

Some  of  the  current  state-of-the-art  conventional 
programming  languages  seem  to  consist  of  large,  bulky 
frameworks  with  moderate  to  small  numbers  of  changeable 
parts;  this  results  in  the  inflexibility  of  von  Neumann 
style  word-at-time  programming.  The  underlying  principle  of 
the  Backus  philosophy  envisions  reduced  frameworks  and  a 
marked  expansion  in  the  number  of  changeable  parts  which 
will  provide  the  programmer  with  increased  control  and 
flexibility  o»er  the  programs  being  created.  Figures  3-2  and 
3-3  illustrate  the  relationship  between  "frameworks"  and 
"changeable  parts”  as  viewed  across  the  programming  language 
continuum.  It  is  hypothesized  that  there  is  a  noticeable 
decrease  in  the  size  of  the  language  framework  as  the 
continuum  is  traversed  from  conventional  languages  to 
applicative  languages.  In  contrast,  the  number  of  changeable 
parts  seems  to  show  a  complementary  Increase  over  the  same 
continuum,  reinforcing  the  hypothesis  that  frameworks  can  be 
reduced  as  the  repertoire  of  changeable  parts  grows. 

In  attempting  to  provide  a  long-term  solution  to  the 
problem  of  large,  unwieldy  frameworks  and  insufficient 
changeable  parts  within  the  conventional  programming 
languages,  a  purely  applicative  language  could  be  developed 
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along  the  lines  of  the  Eendersen  model  [2].  However,  in  the 
short-term,  the  critical  factor  that  must  be  considered  is 
user  reluctance  to  use  a  functional  language  in  total  for  an 
entire  programming  application.  It  seems  that  human  beings 
not  only  think  in  a  sequential  manner,  but  are  also 
creatures  of  habit  and  occasionally  tend  to  resist  change. 
With  these  facts  in  mind,  it  is  essential  that  the  proposed 
system  allow  the  user  to  decide  when  functional  programming 
will  be  used  (if  at  all)  and  to  what  degree.  The  user  must 
be  given  the  flexibility  to  move  across  the  "continuum"  at 
will  in  order  to  achieve  the  degree  of  functional 
programming  that  is  comfortable  and  useful  for  the 
particular  application.  When  the  desired  results  are 
achieved,  the  programmer  can  return  to  the  sanctity  of  the 
conventional  environment  and  continue  the  application. 

C.  JUNCTIONAL  PASCAL:  THI  BASIC  CONCEPTS 

The  methodology  for  achieving  the  transition  from 
conventional  to  functional  programming  techniques  is 
three-fold:  (1)  increase  the  number  of  changeable  parts 
within  the  language  by  providing  a  rich  and  powerful  set  of 
primitive  functions  as  presented  by  Backus,  (2)  reduce  the 
dependence  on  the  conventional  language  constructs  by 
allowing  the  programmer  to  implement  user-defined  functions 
built  from  the  basic  set  of  primitives,  and  (3)  provide  the 
programmer  with  a  clear  and  concise  choice  as  to  which 
environment  is  best  suited  for  the  particular  application 

[13. 
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The  overall  logical  schema  of  the  Functional  PASCAL 
System  is  illustrated  in  Figure  3-4.  The  system  consists  of 
two  basic  logical  modes  of  operation:  (1)  conventional  and 
(2)  functional.  The  user  is  provided  the  opportunity  to 
select  either  mode  and  subsequently  operate  in  that  mode  for 
all  or  part  of  the  application.  If  the  user  decides  to 
operate  in  the  functional  mode,  there  are  two  logical 
sub-modes  from  which  to  choose,  again,  dictated  by  the 
application  and  type  of  calculations  required.  The  "system” 
sub-mode  allows  the  programmer  to  access  the  system-defined 
primitive  functions  which  are  resident  in  a  library.  The 
"user"  sub-mode  allows  the  programmer  to  define  new 
functions  within  the  program  by  using  the  standard 
system-defined  primitives  from  the  library.  The  logical 
modes  and  sub-modes  are  discussed  in  detail  below. 

1 .  Conventional  l*ode 

The  conventional  mode  of  operation  allows  the  user  to 
operate  purely  in  a  high-level,  conventional  programming 
language.  In  the  prototype  Functional  PASCAL  System,  the 
high-level  language  used  as  the  foundation  of  the  system  is 
the  University  of  California  (Berkeley)  PASCAL,  which  is 
designated  the  "host”  language.  UC  Berkeley  PASCAL  runs 
under  the  UNIX  operating  system  from  Bell  Laboratories.  The 
hardaware  selected  for  system  development  and  implementation 
is  the  VAX  ^odel  11/780  from  the  Digital  Equipment 
Corporation  (IIC).  The  basic  concept  of  the  system,  however, 
is  flexible  enough  to  be  designed  around  any  of  the 
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widely-used,  high-level  programming  languages  and  run  on 
compatible  hardware  configurations.  This  would  enable 
similar  systems  such  as  functional  COBOL  and  Functional 
FORTRAN  to  be  developed  in  the  future. 

2.  Functional  Kode 

The  heart  of  the  Functional  PASCAL  System  is  the 
notion  of  the  primitive  function  as  described  by  BacJcus  in 
his  research  and  writings  on  functional  programming  [l] . 
These  "primitives"  form  the  building  bloclts  of  the 
functional  system  and  play  an  important  part  in  the  proposed 
hybrid  system.  In  order  to  perform  functional  programming  in 
the  PASCAL  environment,  the  primitive  functions  are 
programmed  in  the  host  language  and  reside  in  a  system 
library.  The  programmer  is  able  to  use  any  of  the 
"primitives"  to  simulate  a  functional  programming  operation 
within  the  PASCAL  program.  The  basic  primitive  functions 
provided  in  the  Functional  PASCAL  system  are: 

(1)  selector  (9)  length  (17)  distribute  from  left 

(2)  tail  (10)  add  (18)  distribute  from  right 

(3)  identity  (11)  subtract  (19)  append  left 

(4)  atom  (12)  multiply  (20)  append  right 

(5)  equals  (13)  divide  (21)  right  selector 

(6)  null  (14)  and  (22)  right  tail 

(7)  reverse  (15)  or  (23)  rotate  left 

(8)  transpose  (16)  not  (24)  rotate  right 

These  "primitives"  operate  on  list  structures  which  serve  as 
the  arguments  to  the  functions.  The  result  of  this  "function 
application"  is  a  newly-formed  list  structure. 

In  addition  to  this  comprehensive  set  of  primitive 
functions,  a  limited  number  of  functional  forms  are  included 
in  the  system  library.  The  functional  forms  are  slightly 


more  complex  entities  than  the  basic  primitive  functions  and 
can  best  be  described  as  expressions  with  functional  parts. 
The  functional  forms  are  different  from  the  primitive 
functions  inasmuch  as  the  functions  involved  in  the 
expression  have  an  interdependent  relationship.  The 
functions,  or  dependent  elements,  serve  as  parameters  to  an 
independent  element  of  the  expression.  The  basic  functional 
forms  (functionals)  provided  in  the  Functional  PASCAL  System 
are: 


(1)  insert 

(2)  apply  to  all 

The  design  and  implementation  of  the  primitive  functions  and 
functional  forms  are  discussed  in  further  detail  in  Chapters 
4  and  5. 


3.  System  Sub-Mode 

The  "system"  sub-mode  represents  the  portion  of  the 
logical  schema  which  allows  the  programmer  to  access  the 
primitive  functions  and  functional  forms  in  the  system 
library  and  perform  the  basic  operations  of  functional 
programming.  The  degree  of  flexibility  in  this  logical 
sub-mode  is  limited  to  those  operations  which  can  be 
accomplished  by  the  call  of  a  single  library  function.  The 
primitive  functions  can  provide  the  user  with  24  potential 
operations  at  the  most  basic  level  of  functional 
programming.  The  functional  forms  offer  an  added  dimension 
and  increased  capability  for  the  "system"  sub-mode. 


Individual  documentation  sheets  are  provided  for  each 
primitive  function  and  functional  form  in  Chapter  IV. 


4.  User  Sub-Mode 

The  "user"  sub-mode  represents  the  portion  of  the 
logical  schema  which  allows  the  programmer  to  create  new, 
user-defined  functions  from  the  "primitives"  and 
"functionals"  resident  in  the  system  library.  Having  the 
ability  to  develop  new  functions  from  existing  ones  using 
the  technique  of  combining  forms  is  a  critical  element  in 
the  potential  power  of  functional  programming.  Only  one 
additional  functional  form  is  required  to  perform  the  task 
of  function  composition.  The  process  of  composition  can  be 
accomplished  using  the  existing  framework  of  the  host 
language  and  can  be  Implemented  very  simply  by  defining  a 
new  function  in  the  host  language  using  the  existing 
primitive  functions  and  functional  forms  from  the  system, 
library.  The  extent  of  the  capability  of  the  user-defined 
functions  is  limited  only  by  the  imagination  of  the 
programmer. 
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17.  FUNCTIONAL  PASCAL:  A  PROPOSED  DESIGN 


The  design  of  the  Functional  PASCAL  System  involves  the 
augmentation  of  the  basic,  high-level,  host  language  with  a 
series  of  functions,  both  system  and  user-defined.  Due  to 
the  magnitude  and  scope  of  the  Backus  proposal,  the  total 
system  development  effort  is  divided  into  two  phases.  Phase 
I  encompasses  the  design  and  implementation  of  an 
interactive  input  function,  an  output  function,  13  selected 
primitive  functions,  2  functional  forms  and  the  capability 
to  produce  user-defined  functions.  Phase  II  is  the  design 
and  Implementation  of  the  remaining  11  primitive  functions 
and  the  more  complex  functional  forms  outlined  in  the  Backus 
functional  programming  system.  The  scope  of  the  development 
portion  of  this  thesis,  in  general,  and  Chapter  IV 
specifically,  is  limited  to  Phase  I. 

A.  METHODOLOGY 

The  design  of  the  Functional  PASCAL  System  follows  the 
top-down,  structured  approach  using  the  logical  schema  shown 
in  Figure  3-4  as  its  foundation.  In  addition,  the  principle 
of  "information  hiding"  is  enforced  by  specifying  the  exact 
interfaces  between  modules  and  nothing  more.  For  example, 
the  generalized  input  function  always  returns  the  location 
(a  pointer)  of  the  newly-created  data  structure.  This 
location  serves  as  an  input  parameter  to  the  system 
(primitives  and  functionals)  and  user-defined  functions.  The 
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system  and  user-defined  functions  do  not  have  any  knowledge 
of  the  Internal  workings  of  the  input  and  output  functions, 
and  vice  versa.  Thus,  a  "hlack  box"  approach  is  obtained. 
The  development  effort  concentrates  on  the  Functional  Mode 
of  the  logical  schema,  as  the  PASCAL  host  language  provides 
the  vehicle  for  performing  conventional  programming  tasks. 

The  functional  portion  of  the  proposed  system 
necessitates  the  design  of  three  major  components:  (1)  an 
interactive  input  function,  (2)  a  system  library  containing 
the  primitive  functions  and  functional  forms  outlined  in 
Chapter  III  and  (3)  an  output  function. 

3.  FUNCTIONAL  MOEE  EESIGN 

As  discussed  in  Chapter  II.  the  basic  format  for  a 
functional  programming  operation  is  represented  by  the 
notation : 

f  :  x  (f  applied  to  x) 

where  f  represents  a  primitive  function,  functional  form  or 
user-defined  function  and  x  represents  an  argument  list  or 
"object"  which  can  be  an  atom,  a  sequence  or  undefined  (See 
Figure  4-1 ) . 

The  Functional  PASCAL  System  departs  from  the 
traditional  Backus  definition  of  "object"  in  the  following 
manner.  The  functional  progr  aming  system  of  3ackus  states 
that  an  "object"  can  be  an  atom,  a  sequence  or  an  undefined 
entity  and  that  the  elements  within  a  sequence  can,  in 
themselves,  be  "objects".  The  proposed  Functional  PASCAL 
System,  on  the  other  hand,  defines  "object"  to  be  the  entire 


{ 


==>  Atom 


t:x  ==>  ARGUMENT  ==>  OBJECT 
!  LIST 


System  <= 
Sub-Mode 


=>  User 
Sub-Mode 


!==>  Sequence 
I  ==>  Empty  Set 
!  ==>  Undefined 


FUNCTION  APPLICATION  IN  PROPOSED  SYSTEM 
Figure  4-1 


argument  list  that  the  system  and  user-defined  functions 
operate  on.  The  component  parts  of  this  "object"  are  termed 
"elements"  and  can  be  either  atoms  or  sequences.  For 
purposes  of  this  thesis,  the  terms  "argument  list"  and 
"object"  are  synonomous. 

In  examining  the  functional  portion  of  the  Functional 
PASCAL  System,  the  following  generalized  algorithm  is 
provided  as  the  first  iteration  in  a  "stepwise  refinement" 
design  process. 

ALGORITBM  FUNCTIONAL-MODE-DESIGN 

-  Input  argument  list  (object) 

-  Create  a  data  representation  for  the  argument 
list  (object)  and  return  the  location  of  the 
newly-created  data  structure 

-  Using  the  argument  list,  perform  the  operation 
specified  by  the  function  and  return  the  Location 
of  the  data  structure  as  modified  by  the  function 

-  Output  the  results  of  the  functional  oueration 

-  Continue  the  application  in  the  conventional  or 
functional  mode 

END  FUNCTIONAL-MODE-DES IGN 
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The  procedures  within  the  algorithm  perform  four  very  basic 
operations:  (1)  obtain  the  input  data  from  the  user,  (2) 
place  the  data  into  an  appropriate  representation,  (3) 
manipulate  the  data  and  (4)  output  the  data.  Each  of  these 
procedures  is  explained  in  detail  in  Sections  1-4  below. 

1 .  Interactive  Input  Function 

The  purpose  of  the  input  function  (REATLIST)  is  to 
interactively  read  a  user-defined  argument  list  from  a  CRT, 
create  a  doubly  linked  list  data  structure  to  represent  the 
argument  list  and  return  a  pointer  to  the  data  structure. 
The  user  enters  the  argument  list  from  the  terminal  and  it 
is  placed  in  a  temporary  buffer.  The  exact  format  for 
entering  the  string  into  the  system  is  outlined  in  detail  in 
Appendix  B,  The  User's  Manual.  After  the  argument  list  is 
input  into  the  buffer,  the  parsing  process  begins  in  order 
to  determine  if  the  object  is  (1)  an  atom,  (2)  a  sequence, 
(3)  the  empty  set  (a  special  form  of  a  sequence)  or  (4)  an 
undefined  entity.  If  the  object  is  determined  to  be  a 
sequence,  a  procedure  (OZNLIST)  is  invoked  which  recursively 
creates  a  doubly  linked  list  data  structure  for  each 
sequence  in  the  argument  list.  The  following  generalized 
algorithm  is  provided  as  the  first  Iteration  in  the  design 
of  the  interactive  input  function.  The  resultant  source  code 
is  listed  in  Appendix  A . 


ALGORITHM  INTIS ACTIVE-INPUT 

-  Input  argument  list  from  user 

-  Eetermine  status  of  input  string,  i.e.  atom, 
sequence,  empty  set  or  undefined  entity 

IF  (input  string  is  an  atom)  OR  (input  string 

is  the  empty  set)  THEN 

-  Create  an  appropriate  data  representation 

ELSE  II  (input  string  is  a  sequence)  TEEM 

-  Recursively  generate  an  appropriate  data 
representation  for  each  sequence  in  the 
argument  list 

ELSE  (input  string  is  undefined) 

-  Generate  an  error  message 

-  Fill  in  administrative  information  and  data  for 
each  record  generated 

-  Return  the  location  of  the  data  structure  for 
future  access  hy  system  and  user-defined 
functions 

END  INTERACTIVE-INPUT 
2.  Data  Structure  Creation 

The  data  structure  chosen  to  represent  the  input 
argument  list  in  the  Functional  PASCAL  System  is  the  doubly 
linked  list.  The  linked  list  data  structure  is  dynamic  in 
nature  and  allows  the  user  to  maintain  a  list  which  may  be 
altered  at  random  by  the  addition  or  deletion  of  components 
[6].  The  procedure  GENLIST,  as  part  of  the  function 
RIAILIST ,  creates  a  doubly  linked  list  structure  for  each  of 
the  sequences  in  the  input  string.  The  result  is  the 
production  of  a  list  of  lists  with  each  node  being 


represented  by  a  variant  record  with  designated  fields.  The 
design  of  the  record  format  provides  the  capability  to 


retain  both  administrative  information  and  data  related  to 
the  actual  calculation.  The  structure  and  content  of  the 
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record  is  determined  by  the  value  of  two  "tag"  fields, 
NODETAG  and  DATATAG.  These  "tag”  fields  indicate  whether  the 
node  represents  data  or  a  list,  and  if  data,  what  type  of 
data. 

A  NODETAG  field  of  1  indicates  that  the  current 
element  is  a  list  or  sequence  and  that  the  record  is  the 
head  node  of  the  list.  The  remaining  parts  of  the  variant 
record  for  the  ”tag  l"  case  consist  of  three  pointer  fields, 
a  data  type  field  and  a  counter  field.  The  first  pointer 
field,  LINK,  provides  the  location  of  the  next  non-sequence 
element  (if  any)  in  the  current  sequence.  The  second  pointer 
field,  BACKPTB ,  provides  the  link  to  the  previous  record, 
thus  building  the  doubly  linked  list  structure.  The  third 
pointer  field,  SUBLIST,  is  the  complement  of  the  LINK 
pointer  and  provides  the  location  of  the  first  element  (if 
any)  in  the  subsequence.  The  data  type  field,  DATATYPE, 
Indicates  whether  the  elements  in  a  sequence  are 
alphanumeric  or  numeric  and  the  counter  field,  NUKELEMENTS , 
records  the  number  of  elements  in  a  sequence  at  each  level. 

A  NODETAG  field  of  0,  indicates  that  the  current 
element  is  data.  The  remaining  parts  of  the  variant  record 
for  the  "tag  0"  case,  consist  of  two  pointer  fields,  a  data 
tag  field  and  a  data  field.  The  first  pointer  field,  LINK, 
provides  the  location  of  the  next  data  item  in  the  lowest 
level  sublist.  The  second  pointer  field,  3ACXPTB,  provides 
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the  link  to  the  previous  node  in  the  sequence.  The  data  tag 
field,  DATATAG,  specifies  whether  the  data  iteir  is  of  type 
real  or  integer  for  numeric  operations,  type  alfa  for  single 
and  multiple  character  representations,  or  type  boolean  for 
boolean  operations.  The  data  field  contains  the  atoms  in 
each  sequence.  Figure  4-2  illustrates  the  two  types  of 
record  variants  that  can  be  generated  in  the  Functional 
PASCAL  System.  After  the  entire  data  structure  is  created,  a 
pointer  variable,  LISTPTP,  is  returned  by  the  function  in 
order  to  provide  future  access  by  the  system  and 
user-defined  functions.  The  very  first  node  created  is 
termed  the  "head"  node  and  contains  critical  summary-type 
administrative  information  regarding  the  argument  list  as  a 
whole.  An  example  of  an  input  argument  list  and  the 
subsequent  data  structure  created  by  the  input  function  is 
provided  in  Figure  4-3.  The  source  code  ‘'or  the  procedure 
GENIIST  is  listed  in  Appendix  A. 

3.  Function  Application 

Sections  1  and  2  above  refer  to  the  "object"  portion 
of  a  functional  programming  operation.  As  illustrated  in 
Figure  4-1,  there  is  also  a  "function"  portion  which 
consists  of  the  system  and  user-defined  functions.  The 
principle  of  function  application  mandates  that  these 
functions  be  used  to  manipulate  the  input  data  to  achieve 
the  desired  output.  A  complete  set  of  algorithms  for  the 
system-defined  functions  is  provided  in  the  latter  half  of 
this  chapter.  The  function  algorithms  are  divided  into  two 
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*««>  (((1,2), I) ,e) 
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DATA  REPRESENTATION  OF  AN  ARGUMENT  LIST 
Figure  4-3 
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catagories?  (1)  primitives  and  (2)  functional  forms.  The 
documentation  for  each  function  also  includes  the  input  and 
output  parameters,  the  constraints  associated  with  each 
function  application  and  numerous  practical  examples. 

4.  Output  Function 

The  functional  PASCAL  System  provides  the  user  with 
the  capability  of  obtaining  an  output  of  any  functional 
programming  operation.  A  functional  operation  can  result  in 
one  of  three  possible  outputs?  (1)  an  atom,  (2)  a  sequence 
or  (3)  an  undefined  entity  (error  condition).  When  the 
output  is  in  the  form  of  an  atom,  there  are  four  possible 
responses  that  can  be  generated?  (1)  a  real  number,  (2)  an 
integer,  (3)  a  boolean  expression  or  (4)  a  character.  The 
principle  of  "information  hiding"  provides  the  programmer 
with  the  knowledge  that  irrespective  of  the  function 
operation  performed,  the  entity  returned  is  a  pointer 
variable  to  a  list  structure  containing  the  appropriate 
response . 

In  the  event  that  the  output  is  an  atom,  the  returned 
value  is  a  pointer  to  a  single  node  containing  the 
respective  output  data.  The  type  of  data  in  the  data  field 
is  specified  by  a  data  tag  of  0,  1,  2  or  3  to  indicate  if 
the  output  is  a  real  number,  integer,  boolean  expression  or 
character,  whichever  is  applicable.  If  the  output  is  a 
sequence,  the  returned  value  is  a  pointer  to  a  complete  list 
structure  representing  the  result  of  the  functional 
operation . 
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The  procedure,  WRITILIST,  is  a  generalized  systeir 
routine  that  writes  a  user's  output  either  interactively  or 
in  hard  copy  forir.  It  uses  the  pointer  variable  returned 
froir  the  function  operation  to  accorrplish  this  task.  In  the 
case  of  a  sequence,  a  subordinate  procedure,  GENWRITE, 
recursively  reasseirbles  the  resultant  list  structure 
inserting  commas  and  parentheses  as  required. 

In  order  to  provide  the  critical  interface  from  the 
Functional  to  the  Conventional  Mode,  a  series  of  eight 
additional  functions  are  introduced.  To  accomplish  the  task 
of  data  extraction  from  a  list  structure,  the  Functional 
PASCAL  Systeir  provides  four  system-defined  functions?  (1) 
GETREAL,  (2)  GETINT.  (3)  GETBOOL  and  (4)  GETALFA.  These 
functions  take  a  pointer  to  the  list  structure  containing 
the  output  value  and  return  this  value  to  a  variable  of  the 
same  type  in  the  conventional  portion  of  the  program.  This 
allows  the  user  to  take  the  results  of  the  function 
operations  in  the  Functional  Mode  and  transfer  them  back  to 
the  Conventional  Mode  within  the  Functional  PASCAL  program. 
The  process  can  be  reversed  in  a  similar  manner.  Tc  return  a 
particular  data  item  to  the  appropriate  list  structure,  the 
system  provides  four  additional  functions?  (1)  PUTREAL,  (2) 
FUTINT,  (3)  PUT300L  and  (4)  PUTALFA.  A  pointer  variable  is, 
again  returned,  recreating  the  identical  structure  as  it 
existed  prior  to  the  call  of  one  of  the  GIT  'unctions.  The 
source  code  for  all  of  the  system  output  functions  is  listed 
in  Appendix  A. 
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C.  CONVENTIONAL  MOLE  DESIGN 

In  order  to  effectively  interface  the  Functional  Mode 
with  the  Conventional  Mode,  it  is  necessary  to  use  the 
"include"  function  provided  by  the  UC  Berkeley  PASCAL 
compiler.  Separate  files  are  Maintained  for  the  variables, 
types  and  functions  related  to  the  Functional  Mode  of  the 
proposed  system  in  order  to  avoid  conflict  with  the 
particular  implementation  of  the  UC  Berkeley  compiler.  These 
files  comprise  the  "system  library”  and  the  programmer  must 
incorporate  them  into  the  main  program  by  using  the 
"include"  function.  A  detailed  description  and  step-by-step 
procedure  for  using  the  function  is  provided  in  Appendix  3 
(User's  Manual). 


« 


* 


52 


r.  ststem-eeiinie  junction  algorithms 


Catagory  I:  Primitives 


NAME:  Selector 

FURPOSI:  To  select  a  pre-determined  element  from  a  list. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  to  the  newly-created  list 

structure  containing  the  element 
selected 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer 

to  a  two-element  list. 

(2)  The  first  element  of  the  list  must  be 
a  positive  integer  value,  s,  which 
represents  the  element  to  be  selected. 

(3)  The  second  element  of  the  list  must  be 
a  sequence  and  the  number  of  elements, 
n,  in  the  sequence  must  be  greater 
than  or  equal  to  s. 

FUNCTION  CALI :  SIIICT  (x:ptr)  :  ptr; 

EXAMPLE:  SELECT  (x)  where  x  *  (3, ( (1,2,3) , (4.6)  ,c  ,(3,4) ) ) 
==*=>  c 

SELECT  (x)  where  x  *  (4,a,b,c,(d,e) ) 

***>  (d,e) 


ALGORITHM:  SELECT  ( x)  ===> 

IF  x  *  ( S , (x [l] . x  [n]  ) )  ANE  n  >=  s  THEN 

x  [s  J 

ELSE 

undefined 


ENIIF 


STSTIM-EEFINEE  FUNCTION  ALGORITHMS 
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Catagory  I:  Primitives 
NAMI:  Tail 

PURPOSE:  To  disgard  tlie  first  element  of  a  list  and  return 
a  list  containing  the  rest  of  the  elements  of  the 
list . 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  to  the  newly-created  list 

structure  containing  the  remaining 
elements  in  the  list 

CONSTRAINTS:  (1)  Input  parameter,  x ,  must  be  a  pointer  to 

a  list  of  n  elements  where  n  is  greater 
than  or  equal  to  1. 

FUNCTION  CALI:  TAIL  (x:ptr)  :  ptr; 

EXAMPLE :  TAIL  (x)  where  x  *  (1,2,3)  ===*>  (2,3) 


ALGORITHM:  TAIL  (x)  **=> 

IF  x  *  (x[l])  THEN 
empty  set 

ELSE  IF  x  =  (x[l],...x[nj)  ANE  n  >*  2  THEN 
(x [2]  ,.  ..x[n]  ) 

ELSE 

undef 1 ned 

ENEIF 
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SYSTEM-DEFINED  FUNCTION  ALGORITHMS 


Category  I:  Primitives 


NAME:  Atom 

PURPOSE:  To  identify  whether  an  object,  x,  is  an  atom  or  a 
list. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node  of 

a  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  variable  to  a  list 

structure  containing  the  boolean 
results  of  the  test 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer 

to  a  list  of  n  elements  where  n  is 
greater  than  or  equal  to  0. 

FUNCTION  CALL:  ATOM  (x:ptr)  :  ptr? 

EXAMPLE:  ATOM  (x)  where  x  *  (1,2, 3, 4)  ===>  false 

ATOM  (x)  where  x  =  2  ===>  true 


ALGORITHM:  ATOM  (x)  *==> 

IF  (x  *  atom)  THEN 
true 

ELSE  IF  (x  <>  undefined)  THEN 
false 

ELSE 

undefined 

ENDIF 
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SYSTEM-DEFINED  FUNCTION  ALGORITHMS 
Catagory  I:  Primitives 
NAME:  Identity 

PURPOSE:  To  return  the  identity  of  an  object,  which  is  the 
object  itself. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

in  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  to  the  newly-created  list 

structure  containing  the  original 
object 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer  to 

a  list  of  n  elements  where  n  is  greater 
than  or  equal  to  0. 

FUNCTION  CALL:  It  (x:ptr)  :  ptr» 

EXAMPLE:  IE  (x)  where  x  «  (6,7, (2,3))  »==>  (6,7, (2,3)) 

ID  (x)  where  x  »  A33  **«>  AB3 

ALGORITHM:  II  (x)  *=*> 

II  (x  *  atom)  THEN 
atom 

ELSE  IF  x  »  (x[l] . x[n]  )  THEN 

(x[l]  , . . .  ,x[n] ) 

ELSE  IF  x  *  (  )  THEN 
empty  set 

ELSE 

undefined 

ENDIF 
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STSTEM-IEFINED  FUNCTION  ALGORITHMS 
Catagory  I:  Primitives 
NAME:  Equals 

PURPOSE:  To  determine  whether  the  elements  of  a  two-element 
list  are  equal. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

in  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  variable  to  a  list 

structure  containing  the  boolean 
results  of  the  test 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer 

to  a  two-element  list. 

FUNCTION  CALL:  EQUALS  (x:ptr)  :  ptrj 

IXAMPIE:  EQUALS  (x)  where  x  =  ((1,2,3) ,(1,2,3))  ==»>  true 
EQUALS  (x)  where  x  «  ( (1 ,2,3) , (1,2,4) )  ==*>  false 
EQUALS  (x)  where  x  =  (A8,AB)  ===>  true 


ALGORITHM:  EQUALS  (x)  ===> 

IF  (x  is  a  two  element  list)  THEN 

IF  (both  elements  are  equal)  THEN 
true 

ELSE 

false 

ENEIF 

ELSE 

undefined 


ENLIF 


STSTIM-DFFINED  JUNCTION  ALGORITHMS 


Catagory  I:  Primitives 
NAMI:  Null 

PURPOSI:  To  determine  If  a  list  contains  any  elements. 

INPUT  PARAM1TIRS :  x:  A  pointer  variable  to  the  first  node  of 

the  list  structure 

OUTPUT  PARAMITIRS:  x:  A  pointer  variable  to  a  list 

structure  containing  the  boolean 
results  of  the  test 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer 

to  a  list  of  n  elements  where  n  is 
greater  than  or  equal  to  0. 

FUNCTION  CALL:  NULL  (x:ptr)  :  ptr; 

UAMPH:  NULL  (x)  where  x  *  (  )  ««*>  true 

NULL  (x)  where  x  *  (AB)  **=>  false 

ALGORITHM:  NULL  (x)  =*=> 

II  (x  *  empty  set)  THEN 
true 

ELSE  IF  (x  <>  undefined)  THEN 
false 

ILSE 

undefined 

INEIF 
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STSTIM-EEFINEE  FUNCTION  ALGORITHMS 
Category  I:  Primitives 
NAMI:  Reverse 

PURPOSE:  To  reverse  the  elements  of  a  list. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  to  the  newly-created  list 

structure  containing  the  elements  of 
the  original  list  in  reverse  order 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer 

to  a  list  of  n  elements  where  n  is 
greater  than  or  equal  to  0. 

JUNCTION  CALL:  REV  (x:ptr)  :  ptrj 

EXAMPLE:  REV  (x)  where  x  *  (1,2, 3, 4)  ===>  (4,3,2, 1) 

REV  (x)  where  x  «  ((1,2),B,3)  ===>  (3,B,(1,2)) 

ALGORITHM:  RIV  (x)  -*»> 

IF  x  »  (x[l]  , . . .  ,x  [a]  )  THEN 

(x[n] . xtll) 

EISE  IF  x  -  (  )  THEN 
empty  set 

ELSE 

undefined 


INEIF 


STSTEM-EIFINEE  FUNCTION  ALGORITHMS 
Category  Is  Primitives 
NAME:  Length 

PURPOSE:  To  determine  the  number  of  elements  in  a  list. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  variable  to  a  list 

structure  containing  the  number 
of  elements  in  the  list 

CONSTRAINTS:  (1)  Input  parameter ,  x,  must  be  a  pointer 

to  a  list  of  n  elements  where  n  is 
greater  than  or  equal  to  0. 

FUNCTION  CALL:  LENGTH  (xsptr)  :  ptr? 

SXAMPL1* :  LENGTH  (x)  where  x  =  (1,2,3)  =*==>  3 

LENGTH  (x)  where  x  =  (  )  ==*>  0 
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STSTIM-DFFINEE  FUNCTION  ALGORITHMS 


Catagory  I:  Primitives 
NiMH:  Add 

PURPOSI:  To  provide  the  arithmetic  operation  of  addition 
on  a  two-element  list. 

INPUT  PARAM1TIRS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  variable  to  a  list 

structure  containing  the  sum  of 
the  two  numbers  in  the  input  list 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer  to 

a  two-element  list. 

(2)  Both  elements  in  the  two-list  must  be 
numbers. 

FUNCTION  CALL:  ADD  (x:ptr)  :  ptrJ 
EXAMPLE:  AEE  (x)  where  x  *  (1,2)  ===>  3 
ADD  (x)  where  x  »  (8,4)  =*=>  12 


ALGORITHM:  AID  (x)  =«> 

IF  (  x  *  (a,b)  )  AND  (  a,b  are  numbers  )  THEN 
(  a  +  b  ) 

ILS1 

undefined 

ENDIF 
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SYSTEM-EEFINEI)  FUNCTION  ALGORITHMS 


Catagory  I:  Primitives 
NAME:  Subtract 

PURPOSE:  To  provide  the  arithmetic  operation  of 
subtraction  on  a  two-element  list. 

INPUT  PARAMETERS :  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  variable  to  a  list 

structure  containing  the  difference 
between  the  two  numbers  in  the 
input  list 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer  to 

a  two-element  list. 

(2)  Both  elements  in  the  two-list  must  be 
numbers . 

FUNCTION  CAII:  SUB  (x:ptr)  :  ptrj 
EXAMPLE:  SUB  (x)  where  x  -  (15,5)  ===>  10 

SUB  (x)  where  x  =  (3 .5 ,6.5)  ===>  -3 

ALGORITHM:  SUB  (x)  =*=> 

IF  (x  is  a  two-element  list)  AND 

(both  elements  are  numbers)  THEN 
(difference  between  two  numbers) 

ELSE 

undefined 

ENIIF 
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SYSTEM-DEFINED  FUNCTION  ALGORITHMS 


m 


Catagory  I:  Primitives 
NAME:  Multiply 

PURPOSI:  To  provide  the  arithetic  operation  of 
multiplication  on  a  two-element  list. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  variable  to  the  list 

structure  containing  the  product 
of  the  two  numbers  in  the  input 
list 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer  to 

a  two-element  list. 

(2)  Both  elements  in  the  two-list  must  be 
numbers. 

FUNCTION  CALL:  MUL  (x:ptr)  :  real? 

EXAMPLE:  MUI  (x )  where  x  =  (5,9)  =*=>  45 

MUL  (x)  where  x  =  (-6.2,4)  =»*>  -24.8 


ALGORITHM:  MUL  (x)  ==*> 

IF  (x  is  a  two-element  list)  AND 

(both  elements  are  numbers)  THEN 
(product  of  two  numbers) 

ELSE 

undefined 

INDIF 
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SYSTEM-DEFINED  FUNCTION  ALGORITHMS 
Catagory  I:  Primitives 
NAME:  Divide 

PURPOSE:  To  provide  the  arithmetic  operation  of  division 
on  a  two-element  list. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  pointer  variable  to  the  list 

structure  containing  the  quotient 
of  the  two  numbers  in  the  input 
list 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer  to 

a  two-element  list. 

(2)  Both  elements  in  the  two-list  must  be 
numbers . 

(3)  The  second  number  in  the  list  cannot  be 

0. 

FUNCTION  CALL:  DIV  (x:ptr)  :  ptrj 
IXAMPLE:  DIV  (x)  where  x  =  (16,2)  ===>  8 

DIV  (x)  where  x  =  (11,2)  ===>  5.5 

ALGORITHM:  DIV  (x)  ===> 

II  (x  is  a  two-element  list)  AND 

(both  elements  are  numbers)  AN E 
(the  second  number  <>  0)  THEN 
(quotient  of  two  numbers) 

ELSE 

undefined 

INEIF 
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STSTIM-DIFINIE  FUNCTION  ALGORITHMS 
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Category  I:  Primitives 

NAME:  Transpose 

PUIPOS1:  To  transpose  a  list  of  n  elements  containing  m 
elements  into  a  list  of  m  elements  containing  n 
elements. 

INPUT  PARAMITIRS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

OUTPUT  PARAMITIRS :  x:  A  pointer  to  the  newly-created  list 

structure  representing  the  transposed 
elements  of  the  original  list 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer 

to  a  list  of  n  elements  where  n  is 
greater  than  or  equal  to  2. 

(2)  Xach  element  in  the  list  of  n  elements 
must  contain  exactly  m  elements  where  m  is 
greater  than  or  equal  to  0. 

(3)  x[i]  *  (x[il] . x[im]  )  (Input  Element) 

y[J]  *  (x[l jj . xlnjj)  (Output  Element) 

(4)  1  *<  i  =<  n  and  1  =<  J  *<  n 

FUNCTION  CALL:  TRANS  (x:ptr)  :  ptr; 

IXAMPII :  TRANS  (x)  where  x  *  ( (1,2) , (3,4) , (5,6) ) 

*»*>  ((1,3, 5), (2, 4, 6)) 


ALGORITHM:  TRANS  ( x )  *»=> 

IF  x  *  ((  ),...,(  ))  THIN 
empty  set 

ELSE  IF  x  *  (x[l]  , .. .  ,x[n] )  TEEN 
(yCl] , . . .  »y[m] ) 

ELSE 

undefined 

SNEIF 
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SYSTEM-DEFINED  FUNCTION  ALGORITHMS 


Catagory  II  :  Functionals 


NAME:  Insert 

PURPOSE:  To  perform  selected  binary  function  operations 
on  an  entire  list  structure  beginning  with  the 
innermost  level  (right  to  left)  and  using  the 
result  as  input  to  the  next  higher  level  until 
the  outermost  level  is  reached  and  the  final 
result  obtained. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

f:  The  selected  binary  function  to  be 
inserted  into  the  list  structure 

OUTPUT  PARAMETERS:  x:  A  real  number  value  representing  the 

final  result  of  the  insert  operation 
for  the  selected  function 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer 

to  a  list  of  n  elements  where  n  is 
greater  than  or  equal  to  0. 

(2)  The  selected  primitive  function  operation 
must  be  compatible  with  the  elements  of 
the  list. 

FUNCTION  CALI:  INSERT ( function  f(x:ptr)  :  ptrj  x:ptr)  :  ptr 

EXAMPLE:  INSERT  (f,x)  where  f  ■  ADD  and  x  =  (8,10,12,14) 
**=>  ADD  (8, ADD  ( 10  ,ADD  (12, ADI  (14)))) 

=*«>  ADD  (8, ADD  (10, ADD  (12,14))) 

*«»>  ADD  (8, ADD  (10,26)) 

=«=>  AID  (8,36) 

**=>  44 

INSERT  ( f , x )  where  f  =  MULTIPLY  and  x  =  (2,6,8) 
===>  MUL  (2,MUL  (6 ,MUL  (8))) 

”»>  MUL  (2, MUL  (6,8)) 

**»>  MUL  (2,48) 

=*=>  96 


r 


i 


i 
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INSERT  (f,x)  where  f  =  SUETRACT  and  x  =  (  ) 
===>  SUB  (  ) 

===>  0 

INSERT  (f,x)  where  f  =  SUETRACT  and  x  =  (5 ) 
===>  SUB  (5) 

===>  5 


ALGORITHM:  INSERT  (f,x)  ===> 

IE  x  -  (x[l] )  THEN 
xCl] 

ELSE  IF  x  =  fx[l]  • .. .  ,x[nj  )  and  n  >=  2  THEN 

f  (xCl],  INSERT  (f,  (x  [2] . x  [n]  ) ) ) 

ELSE  IF  x  =  (  )  THEN 
0 

ELSE 

undefined 

INDIF 
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STSTIM-EEFINED  FUNCTION  ALGORITHMS 


Catagory  II:  Functionals 


NAME:  Apply  to  All 

PURPOSE:  To  perform  a  selected  function  operation  on  each 
element  in  a  list  structure. 

INPUT  PARAMETERS:  x:  A  pointer  variable  to  the  first  node 

of  the  list  structure 

f:  The  selected  function  to  be  applied 
to  each  element  in  the  list  structure 


OUTPUT  PARAMETERS:  x:  A  pointer  to  the  newly-created  list 

structure  representing  the  result 
of  the  application  of  a  function  to 
each  element  of  the  list  structure 

CONSTRAINTS:  (1)  Input  parameter,  x,  must  be  a  pointer 

to  a  list  of  n  elements  where  n  is 
greater  than  or  equal  to  0. 

FUNCTION  CALL:  APTALL  (function  f(x:ptr)  :  ptr;  x:ptr)  :  ptr» 

EXAMPLE:  APTALL  (f,x)  where  x  *  ( (1,2) f (3,4) ,(5,6) )  and 

f  =  ADD 

==»>  (ALL  (1,2),  ALE  (3,4),  ADD  (5,6)) 

=«>  (3,7,11) 

APTALL  (f,x)  where  x  =  ( (A,B,C) , (1,2, 3, 4))  and 

f  =  TAIL 

===>  (TAIL  (A, 3,0,  TAIL  (1,2, 3, 4)) 

— >  ((B,C), (2,3,4)) 

APTALL  ( f , x )  where  x  =  ( (2,4,6) ,  (1,2,3  ,4) , (A,B  ) ) 

and  f  =  REVERSE 

*==>  (REV  (2,4,6),  REV  (1,2, 3, 4),  REV  ( A,B) ) 

«*>  ((6,4,2),  (4, 3, 2, 1),  (E, A)) 

APTALL  (f,x)  where  x  =  ( (A  ,3  ,  (1 ,2 ) ,  (10 ,12)  ,  (  )) 

and  f  =  LENGTH 

***>  (LENGTH  (A, B, (1,2), LENGTH  (10 , 12 ), LENGTH  (  ) 
===>  (3,2,0) 
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ALGOHITEP : 


APTALL  (f,x)  ==«> 

II  x  »  (  )  THEN 
erpty  set 

USE  IF  x  =  (x  [1]  , .  ,x  [n]  )  TEEN 
(f  (x[l]  )  , . . .  ,f  (x  [nj  ) ) 

ELSE 

undefined 

ENDIF 
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V.  SYSTEM  IMPLEMENTATION 

A.  IMPLEMENTATION  METHODOLOGY 

The  implementation  of  the  Functional  PASCAL  System 
(Phase  I)  includes  the  coding,  testing  and  debugging  of  all 
component  parts  of  the  system  and  the  integration  of  these 
components  into  a  conventional  programming  environment.  Due 
to  the  strict  use  of  the  system  development  principles  of 
"top-down  design"  and  "information  hiding",  individual 
modules  can  be  constructed  independently.  The  detailed  input 
and  output  parameters  specified  for  the  library  subroutines , 
as  well  as  the  constraints  placed  upon  each  of  the  modules, 
enable  the  developers  to  make  realistic  and  valid 
assumptions  about  the  independent  segments  of  the  program. 
The  independent  components,  being  essentially  "black  boxes", 
can  be  fully  coded,  tested  and  debugged  separately  before 
interfacing  with  the  entire  system.  The  system 
implementation  plan  for  the  Functional  PASCAL  System  is 
divided  into  three  distinct  phases: 

I  —  Coding,  testing  and  debugging  of  independent 

system-defined  modules  (System  Sub-Mode  ) 

II  —  Testing  of  prototype  user-defined  functions 

(User  Sub-Mode) 

III  —  lull  system  integration  of  Functional  and 

Conventional  Modes  of  operation 
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B.  COEING  AN!  CHICK-OUT 

The  Interactive  Input  function,  REABLIST,  is  the  first 
module  to  become  fully  operational  within  the  Functional 
Mode  of  the  system.  It  is  the  irost  critical  portion  of  the 
systeir,  as  it  takes  raw  data  froir  the  user  in  the  form  of  an 
"object",  makes  format  correctness  decisions  and  either 
creates  an  appropriate  data  representation  or  issues 
pertinent  error  messages.  The  importance  of  the  input 
function  cannot  be  overemphasized,  as  it  not  only  formats 
the  data  for  the  user,  but  also  calculates  and  records  vital 
administrative  information  required  for  future  function 
operations  in  the  program. 

One  of  the  key  modules  used  by  the  input  function  is  the 
data  structure  creation  procedure,  GENLIST .  Operating  on  the 
input  string,  this  procedure  removes  all  of  the  "syntactic 
sugar",  such  as  parentheses  and  commas,  before  assembling 
the  final  representation.  The  successful  completion  of  an 
interactive  read  operation  results  in  the  ^unction  returning 
to  the  main  program,  a  pointer  variable  in  order  to  provide 
future  access  to  the  user's  formatted  object. 

The  output  functions  are  the  next  logical  components  to 
be  brought  on-line.  These  functions  return  to  the  user  the 
desired  response  in  the  form  of  a  real  number,  integer, 
character,  boolean  expression  or  sequence,  depending  on  the 
primitive  or  functional  invoked  on  the  "object".  The  output 
procedure,  WRITELIST,  in  the  case  of  a  sequence,  reinserts 
any  parentheses  or  commas  to  provide  the  user  with  a 
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response  in  the  same  format  as  outlined  in  the  User's  Manual 
(Appendix  B ) . 

With  the  completion  of  the  input  and  output  functions, 
the  focus  of  the  development  is  shifted  from  the  "objects" 
to  the  "function  modules"  which  operate  on  them.  The 
primitive  functions  are  separated  into  two  developmental 
groups:  those  that  produce  atoms  as  output  and  those  that 
produce  sequences  as  output.  Each  primitive  is  coded,  tested 
and  debugged  using  the  interactive  input  function  as  the 
source  of  its  input  and  the  output  function  for  the  output 
from  list  construction  operations.  After  the  successful 
testing  of  the  primitive  functions,  the  more  complex 
functional  forms  are  incorporated  into  the  system.  A 
complete  source  code  listing  for  all  system-defined 
functions  is  provided  in  Appendix  A.  A  summary  of  the  test 
procedures  and  results  is  included  in  Appendix  C. 

The  development  and  testing  of  the  individual 
system-defined  functions,  above,  is  only  the  first  step  in 
the  implementation  plan  for  the  total  Functional  PASCAL 
System.  The  ability  of  users  to  define  their  own  functions 
is  paramount  to  the  overall  success  of  the  system,  providing 
both  flexibility  and  power.  The  user-defined  functions  can 
be  implemented  by  defining  new  functions  within  the  main 
conventional  program,  following  the  syntactic  rules  required 
by  UC  Berkeley  PASCAL.  The  functions  can  be  created  using 
any  of  the  system-defined  functions  resident  in  the  library. 
It  is  the  responsibility  of  the  programmer  to  carefully  plan 
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and  ironitor  all  appropriate  inputs  and  outputs  of  the 
individual  components  when  creating  new  functions. 
Sufficient  error  checking  is  included  within  the  system  to 
protect  the  user  from  invalid  operations,  i.e.  operations 
which  violate  the  expected  input  and  output  parmeters  or 
constraints  on  the  modules.  However,  the  overall  result  of 
such  errors  is  the  same  as  would  be  expected  from  the  UC 
Herkeley  compiler — termination  of  execution  and  the  display 
of  an  error  message.  Some  examples  of  simple  user-defined 
functions  are  listed  in  Appendix  C. 

The  third  and  final  phase  of  the  implementation  plan  is 
"system  integration".  Full  "system  integration"  is 
accomplished  by  constructing  a  simple  PASCAL  program 
(Conventional  Mode)  which  utilizes  the  newly-created 
functional  Mode  at  various  points  in  the  application.  The 
use  of  the  functional  components  at  designated  locations  in 
the  conventional  program  illustrates,  in  a  real-world 
environment,  the  movement  along  the  "programming  language 
continuum"  discussed  in  Chapter  III.  An  example  of  a 
Functional  PASCAL  program  is  provided  in  Appendix  C. 

C.  TESTING 

1 .  Testing  Strategy 

The  software  testing  strategy  developed  for  the 
Functional  PASCAL  System  involves  both  the  "unit  testing" 
and  "integration  testing"  philosophies  [8].  The  principle  of 
"unit  testing"  is  used  to  comprehensively  test  each  of  the 
system-defined  functions  that  are  to  reside  in  the  system 


library.  ’Unit  testing"  focuses  on  the  actual  Intricacies  of 
the  code  within  each  irodule.  It  is  at  this  point  that 
software  validation  occurs  to  insure  that  each  function 
operates  correctly  and  contains  the  features  prescribed  by 
its  requirements  and  specif lcations.  The  testing  at  the 
"unit”  level  emphasizes  verification  of  logic,  coirputat ions 
and  data  handling  [8]. 

After  the  successful  testing  of  each  of  the 
system-defined  functions,  the  principle  of  "integration 
testing"  is  invoked.  The  "integration  testing”  views  the 
system  at  the  component  or  module  level  rather  than  at  the 
detailed  level  of  code  as  in  "unit  testing".  This  level  of 
testing  considers  the  interaction  between  software  modules 
and  the  overall  operation  of  the  Functional  PASCAL  System. 
It  Is  at  this  point  in  the  testing  process  that  subtle 
errors  emerge  due  to  the  complex  interactions  between 
components . 

2.  Irror  Handling  Procedures 

The  Functional  PASCAL  System  provides  two  basic 
levels  of  error  checking.  The  first  level  occurs  upon  entry 
of  an  "object"  into  the  system  via  REAELIST.  Improperly 
structured  Input  strings,  i.e.  missing  or  misplaced 
parentheses  or  commas,  result  in  an  error  message  indicating 
a  "malformed  object”.  The  program  is  terminated  immediately 
by  the  use  of  a  PASCAL  GOTO  statement  which  transfers 
control  back  to  the  main  program  from  the  location  at  which 
the  error  is  detected.  The  second  level  of  error  checking 
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occurs  upon  the  application  of  a  system  or  user-defined 
function  to  an  "object".  Inappropriate  or  i  ncoirpatible 
function  operations  attempted  on  an  input  string  result  in 
an  error  message  indicating  the  nature  of  the  problem  and, 
as  in  level  one  errors,  termination  of  program  execution. 
Both  level  one  and  level  two  errors  are  fatal  and  constitute 
a  non-recoverable  operation.  A  complete  listing  of  possible 
error  conditions  and  corrective  procedures  is  provided  in 
Appendix  B  (User's  Manual). 


VI.  CONCLDS IONS 


The  success  of  any  endeavor  can  be  measured  by  the 
extent  to  which  the  Initial  goals  and  objectives  are 
obtained.  In  this  thesis,  the  hypothesis  that  the  theory  of 
pure  functional  programming  can  be  applied  to  a  standard 
conventional  programming  language  is  tested.  The  absence  of 
a  "working"  functional  programming  language  that  the  average 
conventional  language  programmer  can  use  and  understand 
prompted  the  initial  investigation  of  this  idea.  The 
findings  of  the  researchers  are  conclusive;  the  resultant 
design,  development  and  implementation  of  a  simple,  yet 
powerful  functional  programming  system  operating  within  a 
conventional  environment  positively  reinforce  the  original 
hypothesis . 

The  primary  consideration  in  the  design  of  the 
Functional  PASCAL  System  is  to  provide  the  user  with  a 
unique  opportunity  to  experiment  with  the  concepts  of 
functional  programming  in  the  more  traditional,  "imperative" 
language  environment.  A  secondary  consideration  is  to  build 
a  simple,  "user  friendly"  system  that  is  not  only  easy  to 
understand  but  easy  to  operate.  The  user  is  given  a 
clear-cut  choice  as  to  which  programming  methodology  best 
suits  the  particular  application  and  can  react  accordingly. 
It  is  the  integration  of  these  functional  programming 
concepts  into  a  conventional,  high-level  program  that  allows 


76 


the  user  to  gain  an  added  dimension  of  flexibility  in 
complex  problem-solving  situations.  In  addition,  the 
implementation  of  the  Functional  PASCAL  System  bridges  the 
"applicative  language  gap"  which  now  exists  in  the 
predominantly  conventional  language  computer  industry  by 
giving  the  user  the  ability  to  gradually  become  accustomed 
to  a  new  form  of  programming. 

The  efficiency  of  implementation  for  the  Functional 
PASCAL  System  is  not  specifically  addressed  within  the  scope 
of  the  study.  The  literal  use  of  memory  within  the  system  is 
Justified  by  its  rapidly  decreasing  cost  and  increased 
benefits  in  developing  a  "user  friendly"  system.  The  greatly 
escalating  costs  of  programmer  time  in  the  areas  of 
development  and  maintenance  give  license  to  be  less 
concerned  than  in  the  past  with  efficiency  considerations. 
Programmer  productivity  and  the  optimization  of  human 
resources  is  not  only  the  dominant  factor  in  business  and 
Industry  today,  but  also  the  motivation  behind  this  thesis. 

All  in  all,  the  Functional  PASCAL  System  enables  the 
user  to  move  freely  between  two  distinct  programming 
methodologies.  The  total  transparency  to  the  user  of  the 
many  intracacies  of  functional  programming  operations 
results  in  a  simple,  yet  powerfully  flexible  system  complete 
with  error  checking  and  diagnostics. 

The  scope  of  the  study  (Phase  I)  is  limited  to  the 
development  of  only  about  one-half  of  the  primitive 
functions  and  functional  forms  within  the  Sackus  system.  The 
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Junctional  PASCAL  System,  therefore.  Is  flexible  enough  to 
accept  additional  system-defined  modules  at  any  time.  It  is 
envisioned  that  Phase  II  of  the  process  would  involve  the 
design  and  development  of  the  remaining  primitives  and 
functionals  to  further  enhance  the  overall  system. 

Additional  research  is  needed  in  the  area  of  operational 
efficiency  in  order  to  evaluate  the  expense  of  implementing 
a  functional  system.  Specific  areas  of  Interest  are  response 
time,  execution  time  and  total  memory  requirements. 
Ixploratlon  into  the  possibility  of  integrating  the  Backus 
functional  programming  system  into  other  high-level 
languages  may  also  prove  valuable.  Finally,  the  extension  of 
the  Functional  PASCAL  System  into  a  concurrent  programming 
environment  would  be  an  excellent  topic  for  follow-on 
research  and  present  the  language  designers  with  even 
greater  challenges  in  the  future. 
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THIS  INCLUDE  FILE  ("label.!”)  ASSIGNS  A  LABEL  (99)  AT  THE 
END  OF  THE  USER'S  PROGRAM,  TO  WHICH  ANY  FUNCTION  OR  PRO¬ 
CEDURE  IN  THE  FUNCTIONAL  PASCAL  PROGRAM  DETECTING  AN  ERROR 
CAN  JUMP.  THIS  FILE  IS  INCLUDED  IN  THE  USER'S  PROGRAM  BY 
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THIS  INCLUDE  FILE  ("init.i")  CONTAINS  ALL  THE  INITIALIZATION 
STATEMENTS  NEEDED  IN  THE  USER'S  PROGRAM  TO  ALLOW  THE  FUNCTION¬ 
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procedure  GENLIST  ( f irstnodeptr  :  ptr; 

var  headptr  :  ptr; 
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else  if  listbuffer [i ]  in  [ 'a' . . *z» , 'A' . . • Z • , '0' . . ’9' , , • . ' ]  then 
begin  {OBJECT  IS  AN  ATOM} 

new(listptr) ;  {CREATE  A  NODE} 
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end;  {ADD} 
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function  DIV  (x:ptr)  :  ptr; 


end  {else} 

else  begin  {ERROR-JUMP  TO  LABEL} 

writeln;writeln( out file) ; 
writeln('DIV  must  work  on  reals.'); 
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end;  {else} 
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error  :=  true; 
goto  99 
end;  {else} 
end;  {GETALFA} 
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function  ID  (x:ptr)  :  ptr; 
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function  MUL  (x:ptr)  :  ptr ; 


link  :  =  nil; 
nodetag  :  =  0; 
datatag  :=  3; 
int  :  =  intsum 


end;  {MUL} 


« 


120 


function  NULL  (x:ptr)  :  ptr; 
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else  begin  {ATOM  OR  UNDEFINED} 

wr iteln ;wr itelntoutf lie) ; 
writeln('REV  must  work  on  a  SEQUENCE.'); 
writeln(outfile, ' REV  must  work  on  a  SEQUENCE.'); 
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if  reverse" . backptr  <>  x  then  begin 
x" .sublist" .backptr" . link  :=  y; 
y".backptr  :=  x" . sublist" .backptr 


end  {if} 

else  alldone  :  =  true 
until  alldone; 
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begin  {**TRANS**} 

if  x". nodetag  =  1  then  begin  {SEQUENCE} 

if  x * . numelements  >  1  then  begin  {AT  LEAST  2  ELEMENTS} 
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APPENDIX  B  --  USER'S  MANUAL 


I.  INTRODUCTION 


Welcome  to  the  Functional  PASCAL  Programming  System. 
This  system  is  designed  to  allow  the  user  to  write  computer 
programs  in  either  the  traditional  "conventional"  mode  or  in 
a  "functional"  mode.  A  basic  knowledge  of  applicative 
programming  techniques  and  the  PASCAL  programming  language 
is  assumed  in  order  to  effectively  use  and  understand  the 
Functional  PASCAL  System.  Readers  desiring  further 
information  on  functional  programming  are  referred  to  the 
reference  list  following  Appendix  C  of  this  thesis. 

The  User's  Manual  is  divided  into  six  additional 
sections  as  follows: 


-II.  OVERALL  PROGRAM  FORMAT 
-III.  INPUT  PROCEDURES 

-  IV.  OUTPUT  PROCEDURES 

-  V.  STSTIM-DEFINED  FUNCTIONS 

-  VI.  USER-DEFINED  FUNCTIONS 

-  VII.  ERROR  HANDLING  PROCEDURES 
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II.  CVmiL  PEOGBAM  POEM  AT 


The  format  of  a  Functional  PASCAL  Program  is  very 
similar  to  that  of  a  conventional  PASCAL  program.  The  only 
major  difference  is  that  the  functional  system  requires  a 
few  additional  system  files  which  enables  the  user  to  input 
"objects"  for  processing  by  the  system  and  user-defined 
functions.  These  functions  are  provided  in  the  system 
library  and  are  incorporated  into  the  main  program  by  using 
the  standard  "include"  statement.  In  order  for  the  user  to 
gain  full  access  to  all  of  the  functional  programming 
capabilities  of  the  system,  it  is  necessary  to  "include"  six 
components  in  the  main  program:  (1)  a  label  declaration,  (2) 
a  type  declaration,  (3)  a  variable  declaration,  (4) 
system-defined  functions,  (5)  an  initialization  routine  and 
(6)  an  errorlabel  declaration.  These  components  provide  a 
complete  interface  package  with  the  functional  portion  of 
the  system.  The  label  and  errorlabel  declarations  allow  the 
system  to  terminate  gracefully  from  the  functional  mode  of 
operation  upon  encountering  an  error  condition  in  that 
Frogram  module.  It  should  be  be  noted  that  the  "include" 
statement  must  follow  the  format  of  the  sample  program  shown 
in  this  Appendix.  The  #  must  appear  in  column  1  and  the 
quotation  marks  must  surround  the  designated  system  files 
being  called. 


FUNCTIONAL  PASCAL  PR OGHAM  FORMAT 

PROGRAM  funcpascal  ( input , output ) » 

#  include  label 
TYPE 

ft  include  "type.i" 

user-defined  type  declarations 
VAR 

#  include  "var.i” 

user-defined  variable  declarations 
ft  include  "functions. l" 

user-defined  procedures  and  functions 
BEGIN 

ft  include  "init.i" 

main  body  of  program 

ft  Include  "errorlabel .i" 

END.  {  program  funcpascal  } 
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III.  INPUT  PROCEDURES 


i 
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I 


The  Functional  PASCAL  System  allows  the  user  to  enter 
data  into  the  program  via  an  interactive  input  function, 
READLIST.  The  data  is  entered  upon  seeing  a  prompt  to  the 
terminal  as  follows: 

ENTER  OBJECT. 

The  interactive  function,  READLIST,  can  be  activated  by 
invoking  it  as  a  routine  function  call  as  in  any  other 
PASCAL  program.  The  following  example  illustrates  a  typical 
statement  in  the  main  body  of  the  Functional  PASCAL  program 
which  accomplishes  this  task: 
x  :=  READLIST; 

The  primary  purpose  of  this  function  is  to  capture  raw  data 
from  the  user  and  format  it  into  an  appropriate  data 
representation.  The  return  value  from  READLIST  is  a  pointer 
variable  to  the  newly-created  data  structure. 

The  basic  unit  of  any  input  data  is  the  "object".  An 
"object"  can  be  an  atom  or  a  sequence,  depending  on  the  type 
of  functional  operation  being  invoked.  The  Functional  PASCAL 
System  requires  the  user  to  follow  a  limited  number  of 
"syntax"  rules  when  entering  data  objects  into  a  program. 

-  The  allowable  character  set  for  data  objects  is: 

(1)  A..Z 

{<)  a. . z 

(3)  0 .  .9 

(4)  - 
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-  Atoirs  can  be  constructed  from  a  combination  of  one 
to  ten  characters  from  the  allowable  character  set. 


Identifiers:  (1)  Must  begin  with  A..Z,  a..z 

(2)  Can  have  numbers  after  fi.st 
letter 

(3)  Not  to  exceed  ten  characters 


Numbers:  (1)  Cannot  exceed  PASCAL  compiler 

length  or  will  go  into  overflow 
condition 

(2)  Can  input  negative  numbers 

(3)  Can  input  decimal  numbers 


-  Sequences  can  be  constructed  from  0..n  elements 
where  an  element  is  defined  to  be  an  atom  or  another 
sequence. 


-  All  sequences  must  begin  with  an  open  parenthesis  and 
end  with  a  closed  parenthesis. 


-  The  length  of  an  input  data  object  cannot  exceed  80 
characters  due  to  the  limitation  of  the  input  buffer. 

-  Every  element  in  a  sequence  must  be  separated  by  a 
comma . 

-  Spaces  may  be  inserted  at  any  point  in  the  "object” 
but  are  disregarded  during  formation  of  the  data 
structure. 


Examples  of  input  objects  to  a  Functional  PASCAL  program: 


===>cat 
===>( ) 

===>12 

=*=>((1,2). (3,4)) 
===>(a,b,c, (1, (a) ) ) 
===>1.06 

===>( cat , dog, ball) 


(atom) 

(sequence) 

(atom) 

( sequence) 
(sequence) 
(atom) 

( sequence ) 


Lata  input  into  the  system  which  violates  any  of  the  basic 
syntax  rules  results  in  an  error  message  to  the  user. 


’  * 
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IV.  OUTPUT  PROCEDURES 

The  Functional  PASCAL  System  provides  the  user  with  a 
comprehensive  set  of  output  functions  capable  of  extracting 
data  from  the  appropriate  representation  and  presenting  it 
in  a  useable  form  in  the  main  program.  The  output  functions 
are  divided  into  two  basic  catagories:  (l)  output  of 
sequences  and  (2)  output  of  atoms. 

In  order  to  extract  sequence  data  from  the  data 
structure,  the  procedure  WRITELIST  is  used.  This  procedure 
removes  the  data  from  the  list  structure  and  inserts  the 
"syntactic  sugar"  (parentheses  and  commas)  before  displaying 
to  the  terminal  or  to  a  file.  The  input  parameter  to  this 
procedure  is  a  pointer  variable  (x)  to  the  current  data 
structure  created  by  the  processing  of  an  input  data  object. 

WRITELIST (x) »  ===>  ((1,2,3), (4,5), (a, b,c)) 

In  order  to  extract  non-sequence  data  from  the  data 
structure,  a  series  or  GET  functions  can  be  invoked, 
depending  on  the  type  of  atom  that  is  to  be  removed.  Atoms 
can  be  of  the  form  real,  alfa,  boolean  or  integer  and  are 
contained  in  a  record  structure  similar  to  a  sequence.  The 
GIT  function  allows  the  user  to  access  the  particular  data 
structure  containing  the  result  of  a  functional  operation 
and  make  an  appropriate  assignment  to  a  variable  of  like 
type  in  the  main  program. 

Examples  of  non-sequence  output  functions  — 


Trr 


i 


y  :=  GlTRIAlfx); 

where  x  s  a  pointer  to  a  record  containing 
a  real  number  and  y  is  a  variable  of  type  real 
declared  in  the  main  program. 

y  :«  GSTALJA(x); 

where  x  is  a  pointer  to  a  record  containing 
an  alfa  character(s)  and  y  is  a  variable  of 
tyne  alfa  declared  in  the  main  program. 

y  :=  GETBOOL  (x ) > 

where  x  is  a  pointer  to  a  record  containing 
a  boolean  expression  and  y  is  a  variable  of 
type  boolean  declared  in  the  main  program. 

y  :=  GETINT(x)', 

where  x  is  a  pointer  to  a  record  containing 
an  integer  value  and  y  is  a  variable  of  type 
Integer  declared  in  the  main  program. 

A  corresponding  PUT  function  is  provided  for  each  of  the  GET 

operations  above.  The  PUT  operation  is  the  complement  of  the 


GET  operation 

and  takes  the  raw 

atom  in  the  form  of 

a 

real , 

alfa,  boolean 

or  integer  and 

Inserts  it 

into 

a 

list 

structure.  A 

pointer  variable 

is  returned 

to 

the 

main 

program  after 

the  PUT  operation 

is  completed. 

The 

GET 

and 

PUT  operations  provide  the  necessary  interface  from  the 


functional  to  the  conventional  mode  and  vice  versa. 

It  should  be  noted  that  REAELIST  converts  integer 
numbers  into  reals,  and  therefore,  all  corresponding 
outputs,  with  the  exception  of  LENGTH,  appear  as  real 
numbers . 
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V.  SYSTEM-DEFINED  FUNCTIONS 


The  Functional  PASCAL  System  (Phase  I)  provides  the  user 
with  a  total  of  thirteen  primitive  functions  and  three 
functional  forms.  These  subroutines  can  be  called  from  the 
system  library  at  any  time  following  the  same  rules  for 
invoking  procedures  and  functions  as  in  a  conventional 
PASCAL  program.  A  complete  description  of  input  and  output 
parameters  for  each  primitive  and  functional  can  be  found  in 
Chapter  IT  of  the  research  and  development  portion  of  this 
thesis . 

PRIMITIVE  FUNCTIONS 


Primitive 

Calling 

1) 

Select 

SELECT 

2) 

Identity 

ID 

3) 

Reverse 

REV 

4) 

Transpose 

TRANS 

5) 

Atom 

ATOM 

6) 

Null 

NULL 

?) 

Eqhals 

EQUALS 

8) 

Tail 

TAIL 

9) 

Length 

LENGTH 

10) 

Add 

ADD 

11) 

Subtract 

SUB 

12) 

Multiply 

MUL 

13) 

Divide 

DIV 

FUNCTIONAL  FORMS 

Functional 

Calling 

1) 

Insert 

INSERT 

2) 

Apply  to  all 

APTALL 

3) 

Composition 

N/A 

Each  primitive  function  is  standardized  in  that  it 
takes*  as  its  argument*  a  pointer  variable  (x)  to  the  data 
representation  of  the  input  object*  performs  the  appropriate 
operation  on  the  object  and  returns  a  pointer  variable  to 
the  newly-created  data  structure  after  tbe  operation  is 
complete. 

Examples  of  primitive  function  operations  within  a 
Functional  PASCAL  program  — 

y  :*  AED(x) ; 

where  x  *  (6*8.5) 

=*==>  14.5 

y  :=  SELECT (x )  » 

where  x  »  (2, (4, 6, 10, cat , (1,2) ) ) 

===>  6 

y  :=  REV ( x) ; 

where  x  ■  ( (1 ,2) , ball, 5) 

(5. ball, (1,2)) 

y  :«  TRANS (x) i 

where  x  *  ( (1  ,cat ,  (1 ,2 ) ) ,  (a,  b,c ) ) 

( (l,a),(cat,b) ,((1,2) ,c) ) 

where  y  is  a  variable  of  type  "pointer"  declared 
in  the  user's  main  program. 

Each  of  tbe  functional  forms  is  also  standardized  in 
that  it  takes,  as  its  arguments,  (1)  a  system  or 
user-defined  function  (f)  and  (2)  a  pointer  variable  (x).  It 
then  performs  the  appropriate  operation  on  the  object  and 
returns  a  pointer  variable  to  the  newly-created  data 
structure  containing  the  results  of  the  operation. 

Examples  of  functional  operations  within  a  Functional  PASCAL 
program  — 

y  :*  APTALL (ALL ,x) ; 

where  x  ■  ((1 ,2) , (3,4) , (5,6) ) 

»**>  (3,7,11) 


y  :=  INSERT (SUB ,x) » 

where  z  =  (10,4,6.5,8) 

===>  4.5 

y  :=  APTALL ( LENGTH ,x)J 

where  x  *  ( (1 ,2) , (a,b,c ,d ) , ( ) , (3) ) 

===>  (2, 4, 0,1) 

y  s=  APTALL(TAIL,x) J 

where  x  *  ( (a, b,c ) , (cat ,dog) , (1 , (3,4) ) ) 

===>  ( (h,c ) , (dog) , ( (3,4) ) ) 

where  y  Is  a  variable  of  type  "pointer"  declared 
in  the  user's  rrain  program. 

A  third  functional  form,  COMPOSITION,  is  provided 
inherently  as  part  of  the  operating  procedure  within  the  UC 
Berkeley  PASCAL  compiler.  The  functional  form  of  COMPOSITION 
allows  the  "stacking"  of  multiple  functions  in  order  to 
provide  flexibility  in  performing  more  complex  operations. 
The  standard  format  for  a  COMPOSITION  operation  is  as 
follows: 

(fog)  :  x  ===>  f  :  (g  :  x) 

where  f  and  g  are  system  or  user-defined  functions  and  x  is 
an  input  object.  The  above  notation  reads  "the  composition 
of  f  and  g  applied  to  x". 

Examples  of  the  functional  operation  of  COMPOSITION  within  a 

Eunctional  PASCAL  program  —  ^ 

y  REV(TAIL(APTALL(ALD,x) ) ) » 

where  x  =  ( (1,2) , (5,6) ,(3,5) ) 

===>  (8,11) 

y  :=  INSERT (ALE, APTALL(MCL, x) ) ; 

where  x  »  ( (3 ,5 ) , (6 ,4) , (6 ,8  ) , (1 ,3) ) 

»»»>  90 

y  :*  INSERT (ALE  ,APTALL (MUL , TRANS (x ) ) ) 
where  x  =  ((1,2,3) ,(6,5,4) ) 

««>  28 


INSIST  ( ADD,  APT  AIL  (LING  TE ,  1 ) ) 

where  x  *  ( (1,2,3) , (a,b,c,d )#(2f5),(7) ) 

*«*>  10 

where  y  is  a  variable  of  type  "pointer"  declared 
in  the  user's  main  program. 


VI.  USER-DEFINED  FUNCTIONS 

The  Functional  PASCAL  System  provides  a  basic  set  of 
primitives  and  functionals  which  caj  be  extended  through  the 
use  of  user-defined  functions.  A  user-defined  function  is 
declared  in  the  main  program  in  the  same  iranner  as  any 
routine  PASCAL  function.  The  function  is  comprised  of  more 
than  one  primitive  or  functional  and  performs  a  new 
operation  that  is  beyond  the  scope  of  the  basic 
system-defined  functions.  The  user-defined  functions  follow 
the  same  format  as  the  primitive  functions  inasmuch  as  a 
pointer  variable  is  taken  as  an  input  parameter  and  also 
returned  as  an  output  parameter. 

Examples  of  user-defined  functions  within  the  Functional 
PASCAL  System  — 

y  :»  INNIRPROD(x); 

where  INNIBPROD  is  a  function  declared  in  the  main 
program. 

function  INNIRPROD  (x:ptr)  :  ptr» 
begin 

INNIRPROD  i-  INSERT (ADD, APTALL (MUL ,TRANS(x)  )); 
end»  {  function  INNIRPROD  } 


y  :*  CCUNTIL EVENTS (x ) » 

where  COUNTELEMENTS  is  a  function  declared  in  the 
main  program. 

function  COUNTELEMENTS  (x:ptr)  :  ptrj 
begin 

COUNTZLEMXNTS  :*  INSERT (ADD , APTALL (LENGTH ,x )) ; 
end?  {  function  COUNTELEMENTS  } 
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VII.  ERROR  BANTLING  PROCEDURES 

The  Functional  PASCAL  System  provides  the  user  with 
comprehensive  error  checking  routines.  Error  handling  is 
accomplished  in  two  distinct  phases:  (1)  during  the 
interactive  input  function,  READLIST  and  (2)  during  the 
actual  application  of  the  system  and  user-defined  functions 
on  the  input  data  object. 

During  the  first  phase  of  the  error  checking  routines, 
the  input  data  object  is  examined  for  syntactic  errors  and 
appropriate  messages  are  displayed  to  the  terminal.  The 
second  phase  consists  of  a  semantic  evaluation  of  the 

i 

functions  as  applied  to  the  particular  input  object  and, 
again,  display  of  messages  for  user  information.  In  both 
cases,  the  errors  are  fatal  and  execution  of  the  Functional 
Pascal  program  is  terminated.  Other  errors  outside  of  the 
functional  portion  of  the  program  are  handled  routinely  by 
the  UC  3erkeley  PASCAL  compiler. 
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APPENDIX  C  ~  INITIAL  TEST  RESULTS 


SECTION  I.  UNIT  TESTING  (Primitive  Functions) 

The  following  test  problems  and  results  are  provided 
to  illustrate  the  Initial  unit  testing  conducted  on  the 
primitive  functions  within  the  Functional  PASCAL  System. 


Primitive  Function:  ADD 
Input  Object:  (10,15.2) 
Result  ===>  25.20 

PF:  SUB 
IC:  ( (1 ,2 ) ,3 ) 

RES:  Error 

PF:  MUX 
10:  (4,12) 

RES:  48.00 


Primitive  Function:  F.EV 
Input  Object:  (a,b,c,d,e) 
Result  ===>  (e,d,c,b,a) 

PF  *  REV 

10:  (1,(2, 4), 6, (7, 8, 9)) 
RES:  ((7, 8, 9), 6, (2,4), 1) 

PF:  LENGTH 

10:  (A, B ,3, cat  ,6,4 ) 

RES:  6 


PF:  DIV 
10:  (6,0) 
RES:  Error 

PF:  DIV 
10:  (0,8) 
RES:  0.00 

PF:  ATOM 
10:  ((2)) 
RES:  false 

PF:  ATOM 
10:  cat 
RES:  true 

PF:  Null 
10:  (a,b,c) 
RES:  false 


PF:  NULL 
10:  (  ) 

RES:  true 

PF:  ID 

10:  ((1,2, 3). (4, 5, 6)) 
RES:  ((1,2,3), (4, 5, 6)) 


PF:  LENGTH 

10:  (4,3.6,x,y,((l,2))) 

RES:  5 

PF:  EQUALS 

10:  (((1,2, (3))), ((1,2, (3)))) 
RES  :  true 

PF:  EQUALS 
10:  36 
RES:  Error 

PF:  EQUALS 
10:  (a, (a)) 

RES  :  false 

PF:  TAIL 

10:  (1,2, 3, 4. 5,1) 

RES:  (2,3, 4. 5, X) 

PF:  TAIL 

10:  ((1,2,3, (4)), X) 

RES:  (X) 

PF:  TAIL 

10:  (  ) 

RES  :  Error 


y 


P 


PE:  SELECT 

10:  (5, (X, (1,2), ball, 2, 10)) 
RES:  10 

PE:  SELECT 
10:  (1) 

RES :  Error 

PE:  TRANS 

10:  ((1,2, 3), (4,5), (7, 8, 9)) 
RES:  Error 

PE:  TRANS 

10:  ( (1,2), (cat, dog) ) 

RES:  ( ( 1  ,cat ) , (2,dog ) ) 

PE:  ADD 
10:  (3,5,7) 

RES:  Error 

PE:  DIE 

10:  (100.6,2.0) 

RES:  50.30 

PE:  NOLL 
10:  ball 
RES :  Error 

PE:  ID 
10:  1 

RES :  Error 

PE:  REV 
10:  (1) 

RES:  (1) 

PE:  SELECT 
10:  (4,(x,y,z) ) 

RES  :  Error 


PE:  TAIL 
10:  a 

RES  :  Error 
PE:  TRANS 

10:  ((1,2,3), (4,5,6) ) 
RES:  ((1,4), (2,5), (3, 6)) 

PE:  EQUALS 

10:  ((  ),(  )) 

RES  :  true 

PE:  ADD 
10:  3,4 
RES:  Error 

PE:  MOL 
10:  (3,0) 

RES  :  0.00 

PE:  SOB 
10:  (0,8.3) 

RES  :  -8.30 

PE:  SELECT 
10 :  3,a,b,c 
RES:  Error 

PE:  ID 
10:  a,b,4 
RES:  Erf or 

PF:  REV 
10:  (  ) 

RES  :  (  ) 

PF:  ATOM 
10:  (ball) 

RES:  false 
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SECTION  III.  INTEGRATION  TESTING  (User-defined  functions) 


The  following  test  problems  and  results  are  provided 
to  illustrate  the  initial  integration  testing  conducted  on 
selected  user-defined  functions. 


*********************************************************** 

function  INNERPROD  (x:ptr)  :  ptr» 
begin 

INN1RPROE  :=  INSERT  (AED,APTALL(MUL, TRANS  (x)  ) )  > 
end;  {  function  INNERPROD  } 

User-defined  function:  INNERPROE 

Purpose:  To  find  the  inner  product  of  a  matrix. 

Input  object:  ( (1,2,3) , (6,5,4) ) 

Result :  28 

*********************************************************** 

function  BATAVI  (x:ptr)  :  ptrj 
begin 

BAT  AT  I  :»  APTALL  (BIT, TRANS  (x) )  ,* 
end*  {  function  BATAVE  } 

User-defined  function:  BATAVE 

Purpose:  To  find  the  batting  averages  of  baseball 
players  given  a  two-element  list  (TCTAI  • 

HITS  and  TOTAL  AT  BATS). 

Input  object:  (( 10 ,15,20, 11) , (30 ,60 ,40 ,33) ) 

Result:  (0.33,  0.25,  0.50,  0.33) 

*********************************************************** 

function  TOTLISTILZMENTS  (x:ptr)  :  ptr; 
begin 

TOTLISTILIMENTS  :=  INSERT (ADD ,APTALL (LENGTH ,x) ) ,' 
end?  {  function  TOTLISTELEFENTS  } 

User-defined  function:  TOTLISTELEPINTS 
Purpose:  To  find  the  total  number  of  elements  in  a  list 
of  lists. 

x npu t  object:  ((1,2,3),(  ),(a,b,c,d),(cat,dog)) 

Result :  S 

*********************************************************** 


SECTION  IV.  INTEGRATION  TESTING  (Junctional  PASCAL  program) 

The  following  Functional  PASCAL  program  is  provided 
to  illustrate  the  diverse  capabilities  of  the  system  in  a 
combination  conventional  and  functional  environment. 

******W*******)M^********«************  ********************** 

program  baseballstats(input .output ,outf lie); 

#  include  " label. i" 
const 

limit  *  500; 
type 

#  Include  type.i 
var 

#  include  "var.!” 
z  :  ptr; 

totplayers  s  integer; 

#  include  "functions. i" 

function  BATTINGAVERAGE  (x:ptr)  :  ptr? 
begin 

BATTINGAVERAGE  :=  APTALL (DIV  .TRANS (x ) ); 
end?  {  function  BATTINGAVERAGE  } 

function  TOTLIAGDEPLATERS  (x:ptr)  :  ptr; 
begin 

TOTLIAGUIPLATIRS  :=  INSERT (ADD .APTALL (LENGTH ,x )) ; 
end;  {  function  TOTLEAGUEPLAYERS  } 

begin 

#  include  "init.i" 

x  :»  BATTINGAVERAGE  (READLIST ) ; 
writeln ( 'Team  3atting  Averages:'); 
writeln ; 

WRITELIST  (x ) ; 

x  :*  TOTLEAGUEPLAYERS  (READLIST); 
totplayers  :*  GITINT(x); 

writeln ( 'Total  Active  Players  as  of  15  June  82:'); 
writeln ; 

writeln (totplayers) ; 
if  (totplayers  >  limit)  then  begin 
wrlteln( 'League  exceeding  authorized  strength.'); 
writeln( 'Notify  Commissioner  Immediately...'); 

end  J 

#  include  errorlabel.i 

end.  {  program  baseballstats  } 


************************************************************* 
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